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rack para microcomputador 


- Projetado especificamente para microcomputadores 
de uso pessoal ou comercial 


- Duto eletrificado com tomadas, filtro e circuitos de 
segurança 

- Gaveteiro-arquivo dimensionado para diskettes e 
fitas cassete 

- Dimensões: 
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- Acabamento em madeira natural, laminado ou 


pintura acrílica. É es Al. dos Arapanés, 841 - CEP 04524 
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Editorial 


Muitos insensatos tentam amenizar as 
profecias apocalípticas dos cientistas 
falando em guerra nuclear limitada, em 
chances de sobrevivência e outras falsas 
esperanças. Um pouco de conhecimento 
de ecologia e meteorologia, porém, 
permite calcular as consequências de um 
conflito nuclear: as chances de 
sobrevivência na Terra são reduzid íssimas 
e ainda assim para algumas espécies, entre 
as quais, com certeza, não se inclui a 
humana. 

O que fazer? É hora de todos os 
indivíduos perceberem que o conflito 
básico não é político ou ideológico: o 
problema não é mais de esquerda contra 
direita ou moderados contra radicais. 

O problema básico é de indivíduos contra 
o totalitarismo mais ou menos acentuado 
de todos os Estados. Enquanto o 
indivíduo não for respeitado em seus 
direitos mais básicos, a humanidade como 
um todo estará seriamente ameaçada. 

Esta ameaça se torna mais concreta no 
momento em que as nações formam 
sociedade cada vez mais informatizadas, 
acentuando o poder de controle daquela 
meia dúzia de paranóicos sobre todos os 
cidadãos. 1984 está aí e o Big Brother já 
é uma realidade. No Brasil, talvez se 
chame SNI, na URSS, KGB, mas ele, sob 
múltiplas facetas já existe. 

Alguns pacifistas insurgem-se contra a 
intenção (patética) de fabricarmos 
bombas atômicas no Brasil, manifestada 
recentemente por algumas autoridades. 
Muito, mas muito mais ameaçador do que 
isto é o projeto de centralização, em um 
único banco de dados, de todas as 
informações referentes à ficha individual 
de todos os brasileiros. 

Se este projeto for levado adiante, a 
maior rapidez na investigação de alguns 
eventuais criminosos implicará no 
controle total e absoluto sobre todos os 
cidadãos. Nestas condições o computador 
se tornará uma arma muito mais letal que 
a própria bomba atômica. Será dado mais 
um passo no sentido de alienar o 
indivíduo do poder de decisão sobre sua 
própria vida e sobre o futuro de seus 
descendentes. 

Se isto acontecer, poderemos dizer que 
o advento do computador realmente 
propiciou a chegada de 1984. 

Feliz Ano Novo! 
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CARTAS DOS 


LEITORES 


Caros amigos, 

-.. O que realmente me levou a escre- 
ver para vocês foi o artigo LGM — Mensa- 
gem de Vega — Quebra-Cabeça da revista 
número cinco. No rodapé da página 22 
existe uma nota fazendo menção à uma 
organização chamada Mensa International 
que muito me chamou a atenção. Como 
eu poderia obter maiores informações a 
respeito dela? Na ocasião vocês afirmaram 
que, escrevendo para esta seção seria pos- 
sível obter dados a respeito desta organi- 
zação. Gostaria muito que me enviassem 
estas informações, assim que possível. 

Desde já agradeço a sua atenção, certo 
que serei atendido. Fabio Appolinario. 
São Paulo, Capital. 


Prezado Fabio, 

Obrigado pelos parabéns. A qualidade 
da Microhobby é nossa maior preocupa- 
ção e é através das cartas de nossos leito- 
res que sabemos se estamos no caminho 
certo ou não. 

Para evitarmos responder a todos os 
leitores, individualmente, decidimos pu- 
blicar brevemente uma 
matéria sobre a 







Mensa. Pedimo-lhe um pouco de paciên- 
cia para que possamos elaborá-la. 


Prezados Senhores, 

Nós, sofredores do TK, ao passarmos 
um programa para o gravador ou vice- 
versa, estamos ávidos para que haja uma 
solução para este sofrimento. 

Por várias vezes, a revista anunciou “a 
solução”, como por exemplo, a utilização 
do Tig-Loader (página inteira, a cores na 
número cinco). 

Bem, comprei o tal aparelho, porém 
não obtive resultado positivo algum, a 
não ser que fiquei 15 mil cruzeiros mais 
pobre. 

Agora, a revista anuncia outro “salva- 
dor”, o CMS/ZX, por um preço camarada 
de apenas Cr$ 19.950,00. Pergunto: "será 
que este realmente vai funcionar? Qual a 
sua sugestão para que eu não corra outro 
risco?” 

Eu sugiro que, para esta revista manter 
sua boa reputação, publique 
somente este caes 


tipo de anúncio depois dos aparelhos 
devidamente testados ou então colocar 
em baixo do anúncio: “Não testado pela 
revista”. 

Considero a revista Microhobby exce- 
lente e gostaria de manter esta impressão. 

Quero deixar claro que o TK é um 
computador com aplicações infinitas e 
estou satisfeito com o mesmo. Willem 
H.J.G. Scheepmaker, São Paulo, Capital. 


Caro Willem, 

Diariamente você ouve e vê no rádio, 
na televisão, nos jornais e revistas, nos 
out-door's e luminosos, anúncios afirman- 
do por exemplo, que é muito bom fumar 
cigarros, beber refrigerantes,transmitindo 
a idéia de que estes hábitos tornam as pes- 
soas mais jovens, inteligentes e bonitas. 
Porém, nem por isso estes meios de comu- 
nicação são responsáveis pela veracidade 
dos anúncios pagos. 


-—s 















Não estamos dizendo com isto que os 
anúncios existentes na Microhobby não 
são confiáveis, apenas queremos deixar 
claro que a responsabilidade pela quali- 
dade dos produtos anunciados é do anun- 
ciante!! 

Especificamente com relação ao Tig- 
Loader, informamo-lhe que em muitos ca- 
sos, ele é a nossa “salvação” quando ten- 
tamos introduzir programas de fitas envia- 
das pelos leitores. Claro que' há casos em 
que só mesmo com um “milagre” (coisa 
que os aparelhos não sabem fazer, ainda!) 
conseguimos introduz í-los. 

Infelizmente, não possuimos um CMS/ 
ZX e por esta razão não o testamos, mas 
acreditamos não haver problemas com seu 
funcionamento. 


Os Oitenta e Por Dentro do Apple 
Prezados Senhores, 

Como usuário de TK, fiquei muito sa- 
tisfeito com o lançamento de uma revista 
destinada aos usuários destas máquinas; 
não tive dúvidas, tratei logo de oficializar 
minha assinatura, pensando no conteúdo 
das seções, bem como nas seções pre- 
vistas. 

Gostei muito dos números iniciais, mas 
gostaria de transmitir a minha insatisfa- 
ção e creio também que deva ser a de 
grande maioria dos assinantes. 

1. Na seção Hobby ainda não foi pu- 
blicado nenhum projeto, como se trata de 
uma revista que conta com a colaboração 
dos usuários para beneficiar usuários, não 
deveria haver problemas na montagem 
desta seção; afinal não se trata de divul- 
gar segredo industrial. 

2. Assuntos prometidos para o núme- 
ro seguinte e que não são publicados; 
exemplo o artigo “Funções especiais para 
o TK-85”, na revista número 4, 

3. Assuntos que nada têm a ver com o 
TK, no caso “Por Dentro do Apple”; tra- 
ta-se de tirar esta seção, uma vez que o as- 
sunto não é próprio; a revista Microhobby 
é para os usuários do TK. Sugestão: pen- 
sem numa revista para usuários desta má- 
quina. 

Por fim, gostaria que os senhores enca- 
rassem isto como uma crítica construtiva 
visto que, o que foi proposto não está 
sendo cumprido. Rubens Maus — Curiti- 
ba, PR. 


Caro Rubens, 

Provavelmente sua preocupação com 
as seções sobre os micros das linhas Apple 
e TRS-80 é comum a muitos leitores (in- 
clusive nós mesmos que, em nossos lares 
possuímos também, micros TK). Nossa 
idéia parece não ter sido entendida com- 
pletamente por você. (Vide a seção Des- 
grilando/. Também é comum recebermos 
cartas de leitores que têm acesso a outros 
micros pedindo-nos informações sobre o 
funcionamento dos mesmos. O número 


destas cartas não é desprezível. Justifica- 
se, portanto, a introdução das duas (e 
agora três) seções, uma vez que atende às 
necessidades de usuários do TK. A/ém dis- 
so, mesmo para aqueles que só têm aces- 
so ao TK, cremos ser importante (seja co- 
mo curiosidade ou como aperfeiçoamento 
técnico) conhecer o funcionamento de 
outras máquinas — é importante não “bi- 
tolar-se”! 

Imagine que você veja, em algum lugar, 
um excelente programa para o TR$S-80 ou 
para o Apple e o queira utilizar no TK. 
Ao invés de escrever-nos, perguntando 
como proceder, acompanhe as seções so- 
bre esses dois micros e você mesmo terá 
condições de adaptá-lo! Para facilitar sua 
tarefa, introduziremos a seção Vice-Versa 
nos próximos números. Nessa seção serão 
expostas formas para traduzir-se progra- 
mas do Basic-TK para os do TRS-80, 
Apple e vice-versa. 

Não estaremos tomando espaço do 
TK, uma vez que a quantidade de maté- 
rias por edição está cada vez maior (esta- 
mos introduzindo três colunas em algu- 
mas matérias). Com relação a seção 
Hobby, como você pode notar, começa- 
mos a tirar o atraso (pelo qua! nos descul- 
pamos) neste número. 

Quanto aos assuntos prometidos, só 
podemos dizer que eles foram efetivamen- 
te publicados, ainda que com um número 
de atraso. Nós prometemos tomar cuida- 
do para que não ocorram novos enganos. 

Suas críticas foram realmente constru- 
tivas e esperamos recebé-las, sempre que 
necessário, de nossos leitores. Estamos 
imensamente agradecidos. 


O TK e as antenas parabólicas 


Prezados Senhores, 

Fiquei muito interessado com o Que- 
bra-Cabeça da Microhobby número cinco. 
Tenho 15 anos, gosto muito de eletrôni- 
ca, principalmente de telecomunicações. 
Antes de comprar o meu TK-82C, tinha 
um par de walkies-talkies e resolvi fazer 
uma antena para eles. Com a antena que 
fiz, eles ficaram muito potentes em rece- 
bimento de ondas — eu escutava estações 
de todo o mundo. Num sábado à tarde, 
liguei meu rádio e recebi sinais muito es- 


tranhos e os gravei, Não sei o que podem. 


ser. 

Agora comprei um TK e gostaria de sa- 
ber como fazer para ligar uma antena ne- 
le. . . João Batista Donegá Filho, Mogi 
Guaçu, SP. 


Caro João Batista, 

Tínhamos a intenção de colocá-lo em 
contato com Nabor Rosenthal, mas infe- 
lizmente ele viajou para a Índia e deverá 
retornar somente o ano que vem. 

Com relação a MENSA, pedimo-lhe 
que leia a resposta à carta do Fabio Appo- 
linário. O 


PROJETOS E MANUTENÇÃO 
VÍDEO CASSETE E CÂMARA 


UMATIC — VHS — BETA 
PAL-M — N-LINHA e NTSC 


MESMO SISTEMA EUROPEU 


Transcrição de Filme 


PAL-G e SECAM 
(SERVIÇO IMEDIATO) 


Video Game e Cartuchos para: 


ATARI —- COLECO e ODYSSEY 


Atendemos todo o Brasil 
(via reembolso) 


Horários: diurno, noturno e 
sábados 


Inscrições abertas 
Revendedor e assistência técnica 
is? PROLOGICA 
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Reversão do vídeo no CP-200 
e Joystick 


Prezados Senhores, 

Em primeiro lugar, gostaria de parabe- 
nizá-los pelo ótimo conteúdo da revista 
Microhobby até o presente momento, 
principalmente pelas dicas e programas 
apresentados, que são úteis e de aplicação 
imediata, como no caso do programa 
PentaSpeed (publicado na revista número 
4) e que efetivamente traz um bom ganho 
de tempo na gravação e leitura de pro- 
gramas. 

Em segundo lugar, gostaria de agrade- 
cer o envio da fita brinde. Um alerta ape- 
nas com relação a qualidade da fita utili- 
zada, pois somente após três dias de mui- 
tas tentativas, consegui carregar correta- 
mente o programa Mansão Maluca, devido 
ao fato da fita trancar no cassete e preju- 
dicar a rotação da mesma no gravador. 

Finalizando, apreciaria receber, caso 
possível, duas dicas a respeito de duas 
dúvidas: 

A primeira é com relação a uma fita 
TKDREZ Ida Microsoft adquirida recente- 
mente. Ocorre que, ao rodar a mesmo 
num micro CP-200 da Prológica, obtenho 
a imagem do tabuleiro de xadrez invertida 
na tela. Fui informado que isto ocorre pe- 


lo fato do jogo ter sido desenvolvido pela ' 


Microsoft para o TK-82C, que trabalha 
com inversão de vídeo. Desejo saber se é 
possível efetuar uma inversão de vídeo 
através de soft na fita TKDREZ |, semdani- 
ficar a mesma, ou se é necessário alguma 
adaptação no micro. 

A segunda é com relação ao uso de 


O ACAMPAMENTO DE FÉRIAS 
ONDE SEU FILHO SE DIVERTE APRENDENDO 


EB COMPUTER CAMP 


Próximas turmas: 24/01/84 a 04/02/84 


e novas turmas a partir de abril. 


Informações e Inscrições: Rua Dona Germaine Burchard, 511 — SP 


joystick. Desejo saber, se no CP-200 é 
possível a utilização de joystick, ou se é 
necessário, também, fazer alguma adapta- 
ção no micro. Luiz Fernando Scheffel — 
Porto Alegre, RS. 


Caro Luis Fernando, 


Ficamos gratos por seus elogios. 

Com relação às suas dúvidas, infeliz- 
mente a solução menos desejável é a única 
que existe. A reversão do tabuleiro só po- 
de ser feita com adaptações no CP-200. 
Se você quiser, procure na seção peque- 
nos anúncios as informações sobre quem 
pode fazer essa adaptação para você. 
Quanto ao joystick, a Prológica desenvol- 
ve um especialmente desenhado para o 
CP-200. Procure no revendedor que lhe 
vendeu o CP-200, provavelmente ele terá 
este módulo. 


Arquivo 


Prezados Senhores, 

“.. O número 3 de Microhobby está, 
como já me acostumei a constatar, me- 
lhor que o anterior. Parabéns! 

Parece que o programa Apagando a Te- 
la (revista número 3) veio a responder mi- 
nha perguntas sobre as linhas REM. Em 
compensação tenho novamente dúvidas, 
ambas referentes ao programa Arquivo 
(revista número 3): 

1) Por que as linhas INPUT A são se- 
guidas de LET A = INT A? 

2) Por que o programa pede para digi- 
tar qualquer tecla (linha 4890) se após a 
pausa segue um RETURN incondicio- 
nal? E ainda, de novo PAUSE sem POKE? 


Z 
/ 
% 
/ 
Z 
/ 


Gostei de ver o programa de matemá- 
tica financeira (página 10), uma idéia que 
já me ocorrera, mas ainda não conseguira 
desenvolver. Como o Flavio Rossini colo- 
cou os pontos e as vírgulas nos seus devi- 
dos lugares, o que era a parte mais difícil, 
mas deixou os “milhões” na mesma colu- 
na dos “milhares”, vai aqui minha modes- 
ta colaboração: 

O PRINT de saída deveria ser feito não 
em função de “L” mas de “U”, que é a 
variável que “conta” os algoritmos da par- 
te inteira de “N”, assim a linha 1210 seria 
modificada para: 

1210 PRINT “CR 8”; TAB (21-U); N$ 

E para contar também os espaços 
ocupados pelos pontos deveríamos acres- 
centar a linha: 

1178 LETU = U+7 

Obviamente a inscrição “CR $”' pode 
ser omitida ou substituída por outra. E na 
“TAB (21-U)” pode ser usado um núme- 
ro menor se quisermos “escrever” mais à 
esquerda. 

Por enquanto é só! ... Alejandro Luis 
Cobos — São Paulo, Capital. 


Caro Alejandro, 


É com imenso prazer que tornamos a 
responder uma carta sua. As perguntas 
que você nos faz são respondidas abaixo: 

1) A linha LET A = INT A seguindo 
INPUT A é apenas para evitar que o pro- 
grama pare se o usuário distrair-se e digi- 
tar algum número com digitos não nulos 
após a vírgula. 

2) A instrução PAUSE 30004 produz 
uma pausa de pouco menos de nove mi- 
nutos. Quando digita-se qualquer tecla, 


Em meio ao verde de um sítio de Itapecerica da Serra, 
o Computer Camp é um acampamento para as crianças de nossa época. 
Além de muito esporte e lazer, seu filho entra em contato 


com vários modelos de microcomputadores e dá seus primeiros passos 


nesta tecnologia do futuro. 


Cada acampante recebe uma camiseta Computer Camp, 
material didático completo e ainda 





Tels. (011) 864.7799 — 62.3600 — 65.6194 
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concorre a uma assinatura da Revista Microhobby e a um TK. 


menos BREAK, a pausa é interrompida 
e o programa continua a rodar. Experi- 
mente substituir as linhas: 


4.900 
por: 


49006 IF INKEY$=""“ THEN GOTO 4908 


PAUSE JOBea 


Com relação ao fato de Pause não estar 
acompanhado de POKE 16497,255 temos 
a dizer que não há nenhum problema. 
Apenas os primeiros micros do TK neces- 
sitam disso. 

Aproveitamos, também, para agradecer 
as sugestões ao programa do artigo Mate- 
mática Financeira em Basic de Flavio 
Rossini. 


Hexamem 


Prezados Senhores, 

Possuo um TK-85 de 48K e venho 
acompanhando com grande interesse as 
aulas de Assembly na revista Microhobby, 
sendo que, na número 4 (aula número 3) 
deparei-me com um “grilo” na execução 
do programa Hexamem do qual tirei uma 
listagem e cópias da tela para que V.Sas. 
me expliquem o que ocorreu. 

Primeiramente, para rodar o seu pro- 


grama tive que “enxertar” a linha 102 
SCROLL, pois antes surgia a indicação da 
tela cheia. 

Como V.Sas. poderão observar, O pro- 
grama foi rodado com o exemplo da lição 
e ao fazer o comando RUN 3000, o resul- 
tado foi diferente do que está indicado e 
era esperado, por exemplo, a memória 
30000 que deveria registrar 164 e regis- 
trou 68. 

Parece-me que não houve erro na digi- 
tação do programa, e isso me deixou “gri- 
lado”. Gostaria de que verificasse o que 
ocorreu, escrevendo-me ou explicando 
o fato na próxima lição. 


Gostaria de saber também o que faz 


as linhas 80 e 85. Fiz um teste dando en- 
trada em A$ = “XS” e meu programa 
saiu do ar. 

Na aula número 2 (revista número 3) 
fêz-se referência a um livro (".. . 16 K pa- 
ra que se possa executar os programas 
mais interessantes deste livro. . .”). Gos- 
taria de saber se vocês já o editaram e, 
caso positivo, como posso adquiri-lo. 

Agradeço-lhe antecipadamente, e nesta 
oportunidade valho-me do ensejo para pa- 
rabenizá-los pelo excelente nível de en- 
sino e pela excelente didática de suas 
aulas publicadas. Joaquim J. Mariano, 
Goiânia, GO. 


Caro Joaquim, 


Cremos que você teve que introduzir a 
tinha 192 SCROLL por erro de digitação, 
pois na linha 60 já existe o comando 
SCROLL. O mesmo deve ter ocorrido 
quando você introduziu os digitos A4 (he- 
xadecimal). O código 68 que você obteve 
na memória 34000 corresponde a 44 (em 
hexadecimal) e é provável que você tenha 
digitado 44 ao invés de A4. 

As linhas 80 e 85 (e também 130, 135, 
14] e 145) tem sua utilidade esclarecida 
na lição número 4 do curso de Assembly 
(Microhobby número 5). De qualquer for- 
ma, seu programa não deveria ter “saído 
do ar” como aconteceu. Novamente, você 
deve ter digitado algo errado numa das li- 
nhas citadas acima. Se nós estivermos en- 
ganados, então seu TK-85 está com de- 
feito. 

O livro referido é o Linguagem de Má- 
quina para o TK — volume |” que já foi 
editado. Você pode adquirílo enviando 
um cheque nominal e cruzado ou um vale 
postal no valor de Cr$ 8.000,00 para 
Micromega P.M.D. Ltda. Cx. Postal 
54121, CEP 05096 - São Paulo, SP. 
Junto ao cheque, anexe seu nome, ende- 
reço completo e o motivo (livro) pelo 


qual você o está enviando. o 
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Traduções para o TK 


Prezados Senhores, 

. gostaria que me orientassem na 
transcrição dos comandos (funções subli- 
nhadas na xerox anexa) para o Basic do 
TK-85. 

.. 20T=0 

60 DIM V(3), X(3), P(3), R(3,3) 

76 MAT V = ZER 

86 MAT X = ZER 

96 MAT P = ZER 

100 MAT R = ZER 

116 DATA 1,223/3,1,1,3,32/2,1,243, 
3,1,1,2,0 

120 PRINT 'WELLCOMETO WAR3. 
TWO OR THREE HUMANS MAY 
PLAY!" 

130 PRINT “DO YOU WISH SOME 
ASSISTANCE”... 

-.. 290 FOR J=1 TONI 

300 READ A,B 

310 PRINT “DISTANCE” (FT.) “; 
AS” TOS B; 

320 INPUT R (A,B) 

330 R(B,A) = R(A,B) 

340 NEXT J 

350 PRINT“ ” 

360 RESTORE. 

370 IF N=2 THEN 460 

380 FORJ=1 TON 


390 READ A,B,CDA,F 

40 IF R(AB) < R(CD)+R(E,F) 
THEN 440 

410 PRINT “ERROR — ILLEGAL 
TRIANGLE. RE-ENTER RANGES.” 

420 RESTORE 

430 GOTO 290 

440 NEXT J... 

Grato e parabéns. Paulo Roberto B. 
Bergo, São José dos Campos, SP. 


Caro Paulo Roberto, 


Ficamos muito gratos pelos seus elo- 
gios, pois é motivo de orgulho para nós, 
sabermos que estamos agradando. 

Quando as informações sobre as 
TPlak's, você as encontrará nos números 
anteriores. 

As linhas que você sublinhou em seu 
programa são de fácil adaptação para o 
Basic-TK e se você conseguir traduzir 
completamente o programa, gostaríamos 
que o enviasse para ser publicado em nos- 
sa revista. 

Você sublinhou as linhas: 

70 MAT V=ZER 

80 MAT X = ZER 

990 MATP=ZER 

110 DATA 1,2,2,3,3,1,1,3,3,2,2,1,2,3, 
3,1,1,20 





Além dessas linhas, teremos que tradu- 
zir também as que seguem: 

60 DIM V(3), X(3), P(3), R(3,3) 

100 MAT R=ZER 

300 READ A,B 

360 RESTORE 

390 READ A,B,C,D,E,F 

420 RESTORE 

A adaptação para o TK, fica assim: 


Doo 
Ort 
DXZII 


Gl aa 


D<TXCNTTOXC 
<-Aynn-a 


ma 

ja ad 

o mu om q, 
NENNNE ua 
e 
CONN tj 
N - 


D 
F 
LET 
LET 
LET 
FOR 
Le 
ET 


ode, 
La 
NN 
a 
pa 


GoOVoOcC)O 
Ns pa 


Esperamos que você tenha êxito em 
seu empreendimento e aguardamos ansio- 
samente os resultados. O 


ALÉM DE MICROCOMPUTADORES 
VOCÊ ENCONTRA AMIGOS! 
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MELHORES PREÇOS DO MERCADO. 
MELHORES CONDIÇÕES DE 
PAGAMENTO. 

DEMONSTRAÇÃO DE TODOS OS 
EQUIPAMENTOS. 

ASSISTÊNCIA TÉCNICA PERMANENTE. 

E TEM MAIS: 

DURANTE A MANUTENÇÃO VOCÊ 
NÃO FICA SEM EQUIPAMENTO! 


SISTEMAS E 
COMPUTADORES LTDA. 


RUA ESTADOS UNIDOS, 2141 - Cep 01427 
(Prox. Av. Rebouças) 


Tel.: 8592-8533 
São Paulo - SP 


- 





DICAS 


Muitas vezes vamos digitar um progra- 
ma em linguagem de máquina e se torna 
necessário criar inicialmente, uma linha 
REM com muitos pontos, o que é um tan- 
to quanto trabalhoso. 

A dica deste mês é um programa capaz 
de criar esta linha REM, evitando assim, 
que você fique digitando “n” pontos... 

Inicialmente digite o programa 1 (a li- 
nha REM deve ter 96 pontos). 


FOR 1=165S14 TO 16669 
CROLL 


PROGRAMA 1 


Aperte a tecla RUN e digite os núme- 
ros da listagem decimal a seguir: 


16514..0 6515..0 
16516..2065 
+ E Sad ta 


16536..33 
16398..64 
16949..9 
16542..35 
16544..213 


LISTAGEM DECIMAL. 


Ao terminar de digitar a listagem, peça 
ao computador para mostrar a listagem, 
por meio de tecla LIST. A linha 1 REM 
contém vários caracteres que representam 


o programa em linguagem de máquina, 


que criará a sua linha REM, 











evnauneum 





Retire as linhas 2 a 8 e digite as novas 
linhas do programa 2. 


1 ra DR LN 7% syese FAST mm? 

EDR iara ERNDY xé rr TDR RESET a) 
LL IST “cosus Pp e 

s Fono p ear ES 


“COMPRIMENTO DA REM: * 


E 650 
16514,C-255+INT 1C/255 


16515 INT (C/256) 
USR 1651 


PROGRAMA 2 


Vamos ver como este programa fun- 
ciona? 

Ponha o programa para funcionar. A 
seguir, digite o comprimento que a sua li- 
nha REM deveria ter e, num piscar de 
olhos, o programa gera uma linha 2 REM, 
com o número de pontos que você dese- 
java. 


ND FAST m' 


a 
Ot N ES 
REM 


SE 60 
POKE 16514,C-2564 INT (C/as6 


POKE 16515, INT (C,296) 
= USR 16516 
LIST 2 


a 
Ss 
6 
7? 
8 
9 
o) 
1 


po po 





Agora que você já testou o programa 2 
e sabe como ele funciona, retire a linha 2 
e grave O programa em uma fita de boa 
qualidade. 

E toda vez que você for digitar um 
programa em linguagem de máquina mui- 
to longo, carregue este programa e digite 
o número de pontos que precisar. Depois, 
é só retirar as linhas desnecessárias ao pro- 
grama que você vai digitar. O 





Nancy Mítie Ariga 
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PEQUENOS 
ANÚNCIOS 


— TROCO Programas nacionais e im- 
portados (recuso qualquer pagamento em 
dinheiro) para o TK-82, 83 e 85. Tratar 
com Elington pela Caixa Postal 39003 — 
CEP 21490. 


— VENDO diversos solos em lingua- 
gem de máquina, para o TK-82C e TK-85. 
Tratar com Marco Antonio pelo tel.: 
225-7507 — Belo Horizonte — MG. 


— TROCO Programas (jogos) e idéias 
para o TK. Tratar com José Augusto S. de 
Campos. Av. Dr. João S. Alves de Carva- 
lho, nº 530 — Jardim Ipiranga — Porto 
Alegre — RS — CEP: 90000. Mandar da- 
dos pessoais e programas. 


— VENDO super TK comhigh speed, 
gravação independente de dados, inversão 
de vídeo por soft ou chave, controle re- 
moto do gravador (soft ou chave), tecla 
reset alta-resolução, 16K e função slow, 
junto com programas em linguagem de 
máquina. Jogos e aplicativos. Informações 
com César pelo telefone: 201-8409 (nos 
fins de semana). 


— PROCURO LEITOR que tenha es- 
quema da interface e som para o TK, ou 
alguém que o construa. Esquemas e/ou 
propostas para Paulo A. Fessel. R. Gene- 
ral Góis Monteiro, 113 — Piracicaba — SP. 
Também procuro pessoas que tenham o 
nº 1 da Microhobby, para enviar-me duas 
cópias xerox no mesmo endereço. 


— VENDO TK-85 com alta resolução 
jogos, joystick, tudo por Cr$ 250.000,00. 
Três meses de uso. Tratar com Edson. 
CEP: 04437. R. Manoel Vaz, 265 — Jd. 
Consórcio — Sto. Amaro; SP. 


- VENDO ou TROCO programas para 
os similares de CP 200, tais como: TK-82, 
83, 8b, e outros, aos interessados 
escrever para: Adelson de Carvalho A, dr. 
Rua da Hora, 465 — apto. 102-B — Reci- 
fe, PE — CEP: 50000. 


— Making The Most of Your ZX-81. 
Getting Acquainted with your ZX-81. 
Tratar com Edison — Fone: 235-3479. 
Hor. Comercial — Cx. Postal 7252 — CEP: 
01031 — SP. 













externamente. 


e 
Chave Liga/Desliga 
ave sliga 
Chave 110/220 Vac 
Joystick 


(6) 


Depto. Vendas - Av. Ald 
fone: 456.3011 


lançamento de Cr$ 87.000,00 


Linha de Fabricação: 
Chaves comutadoras 





Teclas e teclados profissionais 
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LANÇAMENTO 


Terminal com 

teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 

funções gravadas na 

própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 


Saídas: Expansão memória/impressora 
ba externa ou interna 


INTER-COL IND. E COM. LTDA. 
a, 805 - Diadema (Centro) 


Os pedidos registrados no mês de Janeiro , terão preço de 


Teclas e teclados sem! profissionais 

























— COMPRO 
elétrica (datilografia-impressora). Propos- 
tas para Roberto de A. Santos. Rua U- 
ruguai, 205, apto. 803 — Tijuca, RJ — 
CEP: 20510. 


Interface para máquina 


— Estou interessado em comprar uma 
TkK-Printer usada. (Comunicar-se com 
Rubens Maus — Rua Luiz Dallagassa, 208 
Vila Haver — CEP: 80000 — Curitiba, PR, 


— TROCO Programas para Micros 
TK-82C e similares. Possuo o Frogger, 
Mazógs, Snake Bite, Galaxy e outros. Tra- 
tar pelo tel.: 853-4717 (c/ Sergio) — São 
Paulo — SP. 


— Desejo corresponder-me om usuá- 
rios de micros similares ao TK8B2-C resi- 
dentes em Blumenau, para TROCA de 
programas. Escrever para Zoltan Bergman 
— Cx. Postal 2172 —- CEP 89100 — 
BLUMENAU, SC. 


RE 


os p 
ES 





e Micros e Minis 
Nacionais 

e Sistemas Aplicativos 

e Periféricos, 
Equipamentos, 
Móveis, etc. 


KYW INFORMÁTICA 


Rua da Lapa, 180 - gr. 1.108/1.110 - CEP 20.021 
Telex: (021) 30980 - Rio de Janeiro - RJ 


user 02) QL SOL] 


MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 





São mais de 140 apostilas com informações completas e sempre Métodos novos e inéditos de ensino garantem um aprendizado 

atualizadas. Tudo sobre os mais revolucionário CHIPS. E você prático muito melhor. Em cada nova lição, apostilas ilustradas 

recebe, além de uma sólida formação teórica, KITS elaborados ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 

para O seu desenvolvimento prático. Garanta agora o seu futuro Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas. Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Audio 


CEDM-20 - KIT 

de Ferramentas 
CEDM-78 . KIT 

Fonte de Alimentação 
Sv/7A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 KIT 

de Componentes 
CEDM-BO » 
MICROCOMPUTADOR 
ZB0 ASSEMBLER 


vim =. 
E 


CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM.-S - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w 





Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
Este CURSO, especialmente programado, oferece os guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
fundamentos de Linguagem de Programação que domina o universo para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
dos microcomputadores Dinâmico e abrangente, ensina desde o BASIC equipe de professores sempre muito bem acessorada. Além disso, você 
básico até o BASIC mais avançado, incluindo noções básicas sobre recebe KITS preparados para os seus exercícios práticos. 

Manipulação de Arquivos, Técnicas de Programação, Sistemas de Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
Processamento de Dados, Teleprocessamento, Multiprogramação e SOS CEDM por correspondência garantem condições ideais para o seu 
Técnicas em Linguagem de Máquina, que proporcionam um grande aperfeiçoamento profissional. 


conhecimento em toda a área de Processamento de Dados 


Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 


Em poucos dias você recebe nossos catálogos de apresentação. 









(e q o a a a o a o a e a e ii e a mm mm 


MH 
CEDM Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 


CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


KIT CEDM Z80 

BASIC Científico 

KIT CEDM Z80 

BASIC Simples 

Gabarito de Fluxograma 

E-.4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas 


Solicito o mais rápido possível informações sem compromisso sobre o 


Nome DWG O DA DO VAO DO O a DU 6ZD DD. 0,0, 0,0. 00 DUO DST DUDE DD 





VARIÁVEIS INDEXADAS 
MATRIZES — FLAGS 


Na aula número 1 introduzimos a pa- 
lavra-chave LET, que associava à uma va- 
riável numérica um “lugar” na memória. 
Entretanto, existem ocasiões em que é de- 
sejável armazenar vários valores para uma 
“mesma” variável, distinguindo seus dife- 
rentes valores através de índices entre pa- 
rênteses; seria como se construíssemos 
uma tabela na memória, à qual denomina- 
mos matriz. Assim, temos a palavra-chave 
DIM (tecla D) cuja função é reservar espa- 
ço na memória para os valores que dese- 
jamos colocar, atribuindo inicialmente va- 
lor zero a todos eles. Experimente então 
o seguinte programa: 


3. OW 
Lp ca, X (3) 


3 
25; U)m"; XI) 


INT 
FOR I=1 TO S 
PRINT CX(";I;U)=7" 
98 INPUT X(IX> 
PRINT AT X+5,5;X(X) 
o NEXT I 





Na instrução 20 reservamos espaço na 
memória para cinco valores de X colocan- 
do inicialmente valor & (zero) para os 
mesmos; a seguir, usando INPUT, associa- 
mos valores aos vários X's e usando um 
“pequeno truque” na linha 100 escreve- 
mos, na tela, os números colocados. 

Note que há diferença de significado 





Infelizmente no Basic-TK as variáveis 
indexadas têm uma limitação: ao contrá- 
rio das variáveis normais, seu “nome” po- 
de ter apenas uma letra; assim, por exem- 
plo, o seguinte comando é inválido: 


Em contrapartida, é possível fazer ma- 
trizes (TABELAS) com mais de uma di- 
mensão (até 255 dimensões). Por exem- 
plo, duas dimensões são facilmente ima- 
gináveis se pensarmos em linhas e colunas. 

Por exemplo: 

DIM A(3,4) 
FOR Izi TO S3 
FOR Jz=1 TO 4 

) PRINT AT 4,4;CACW; Lts; 
INPUT ACI, 
PRINT AT á,11;A(IX,d) 
PEV 90 


Ro 


e NEXT JS 
NEXT 
PRINT TAB 4; "MATRIZ ESCOLHI 


PRINT 
FOR 1I=1 TO S3 


TO 4 
24I+42,4 FJ,RAÇI,) 


Repare que na linha 10 reservamos es- 
paço para uma tabela de três linhas e qua- 
tro colunas, ou seja, para 3x4 = 12 variá- 
veis com valor inicial zero. 

A seguir, você deve fornecer os valores 
para cada variável (INPUT) e finalmente a 
matriz é colocada na tela. 

Note que, estamos usando um /o0p 
dentro de outro /oop: desta maneira, O 
loop interno será repetido tantas vezes 


dos índices: com a palavra-chave DIM ele—. quantas forem indicadas pelo loop exter- 


indica o tamanho máximo da tabela; nas 
demais instruções, ele indica a posição na 
tabela. 

O que acontece se, no programa ante- 
rior, colocamos a linha: 


95 DIM X(5) 
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no. Note que os NEXT's devem aparecer 
em ordem inversa aos FORs, ou seja: 

FOR I=... 

FOR J=... 

NEXT J 

NEXT | 

Repare no uso da instrução AT para a 
formatação da saída na linha 150; com es- 


Pierluigi Piazzi 
Flavio Rossini 
ta formatação, qual o número máximo de 
algarismos que posso usar para cada va- 
lor? É possível aumentá-lo? Você saberia 
“imaginar” uma matriz com três ou mais 
dimensões? 


Noção de FLAG: 
utilização na ordenação 
de números 4 


Denominamos FLAG a uma variável 
auxiliar cuja função é indicar a ocorrên- 
cia ou não de determinada condição du- 
rante a execução de um programa. Uma 
utilização prática para este tipo de variá- 
vel, está na ajuda em descobrir “erros” 
em programas razoavelmente complica- 
dos, principalmente aqueles com um gran- 
de número de instruções IF. Nestes pro- 
gramas, a quantidade de “caminhos” pos- 
síveis é muito grande, o que dificulta a 
análise do mesmo, “passo a passo”, con- 
forme fluxograma ao lado. 

Que corresponde a: 


18 SLOU 
20 PRINT AT 4,3; “OQUANTOS NUMER 

OS DEVO ORDENAR?MAX. (22)” 

36 INPUT 


DIM NtN>5 
CL. 
FOR XI=1 TO 


N 
PRINT AT 4,4;UNCU;H;U)=7” 
INPUT NtI> 
EXT JX 


J 
IF F=i THEN GOTO 105 
SL O 


2 FOR I=1 TO W 
ei Ba 3;N(X) 





Repare o uso do DIM (linha 20) para 
reservar espaço na memória para 22 nú- 
meros que deverão ser fornecidos ao com- 
putador através do INPUT na linha 70. 
Note a mudança de velocidades de 
SLOW para FAST e, a seguir para SLOW: 


Ê 


isto porque a tela não é necessária en- 
quanto o computador faz a “ordenação”. 
Note também que o /oop de ordenação 
faz o contador | variar de 1 até N—1, pois 
caso contrário, ao chegar no último nú- 
mero, iríamos obter um erro (Por que?). 

Finalmente, repare no uso da variável 
B como auxiliar para fazer as trocas e o 
uso do mesmo nome (N) para a variável 
indexada, e para a variável que indica 
quantos números devem ser ordenados; 
elas são distinguidas pelo computador, 
pois esta última não possui índices en- | 
tre parênteses. 

Para finalizar a aula, apenas uma obser- 
vação quanto aos índices: eles devem ser 
sempre números inteiros e positivos. 





Exercícios: 

1. Altere o último programa da aula 
para que imprima uma mensagem de erro 
se na linha 30 for introduzido um número 
maior que 22. Além disso, faça com que 
ele coloque os números em ordem decres- 
cente. 

2. Elabore um programa que, dada 
uma matriz bidimensional quadrada (nº 
de linhas = nº de colunas) calcule seu de- 
terminante. 

3. Faça um programa que seja capaz de 
“ler” duas matrizes de duas dimensões e 
calcule a soma e diferença “imprimindo” 
na tela a matriz-resultado. (6) 





FLUXOGRAMA 


2) a — Ele imprime o valor de A que é igual a CC — EEEE==EEZZPPPRPB BE 
5,eo valor de B que é igual a 10. 


ke 18 RANO 
Apesar do valor de B não estar no programa, 28 PRINT “LOTERIA";TAB 10;1;TA 
B àS;"“X“;TAB 28;2 
ele está na memória do computador, 30 FOR A=1 TO 


13 
o saber iSSês DT AMA 
b - O micro acusará O erro na linha 200, 68 NEXT A ads Eras 


pois a linha 150 “limpou” a memória do micro. 4) 
ss SR É”ÉÉÉÉÃOIAÀÁÀROBSB BBPEEE&ó]ÍS 


c — Se for acrescentada a linha 400 NEW, o 16 LET I=-10 





RESPOSTAS DOS EXERCICIOS CS orogramada memória O MMPRÉ O SS BRINTUAT xori ves 
DO CURSO DE BASIC dE Cr Sat, rem nOTO! 98 
So GOTO 38 
A partir deste número de Micro- Aula 3 
hobby passaremos a publicar as respos- Kitié 
| tas do Curso de Basic continuamente. 
| Nesta edição, vocês terão as respostas VE SS BS: 
| dos exercícios desde ij início, id seja, ào Con Ga To sa | EE==TEREE E EEE 
a partir da revista número dois até a 38 NEXT A é pegas 
última edição, número 6. " o 22 TF N<B OR N<SINT N THEN GOT 
As respostas dos exercícios desta === 38 LET Mei 
edição, publicaremos na próxima re- 3º CATNT TABU A: RENNES 49 LET tamo 
vista (oito) de Microhobby. Assim EPILIUDONS, EN 68 IF I=2 THEN PRINT “FAT. “;N 


="; nm 
R ' . N STOP “ 
sendo, nossos leitores ficarão sempre 3) a - EEE 28 GOTO 46 o 


88 PRINT “NUMERO NÃO ACEITO” 
9 o 1 


em dia com o Basic. 





RAND 
£9 PRINT “LOTERIA” 
3% FOR A=1 TO 13 
«O PRINT INT (RND43) +41 
Aula 2 So NEXT A 





180 INPUT WN 
Ro E eb saaeNT (N/2) =B THEN PRI 
N; * PAR" 


30 IF N-22INT (N/25=1 THEN PRI 
9 - SESTÉ PO PR NT N;* IMPAR” 
VE É SS SOB HITJTEEEA 1 





“ES SPFPRBÊBWBWFTZFT!EJ""""8 

di 29 PRINT “LOTERIA” E 

- . 
eN PRINT “HOPE «s “,HOPE 40 FOR B=1 TO 43 18 INPUT N 
SO PRINT “HOPE + 2 = “;HOPE+2 So LET Cr"INT (RND49)+1 2 IF A A (N/6) =8 THEN PRI 
«0 PRINT “I3SMOPE = “:S4HOPE 60 PRINT “JOGO “;A,"“COLUNA “JC NT N;* E* MÚLTIPLO DE 5” 
Sa PRINT “S+47 = “, 54% 70 LET AzA+1 38 IF NA (N/8) 458 ato: PR 
6a coro sa BB 8 MN; Nao HULTIPLO DE e O 
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Atualmente no mercado estão à venda 
uma grande variedade de Visicalcs, que 
são planilhas eletrônicas que possibilitam 
a manipulação de informações com maior 
facilidade e ocupando o menor espaço na 
memória do computador, 


Apresentamos aqui um Minicalc, que é 
uma redução dos Visicalcs que estão à 
venda. Este Minicalc foi planejado para o 
controle de um orçamento doméstico 
(calcula o total das despesas e o saldo 
do mês). 


Para iniciar o programa (veja programa 
na página seguinte), digite RUN e apare- 
cerá na tela uma parte da planilha. Impor- 
tante: na tela aparecerão sempre as colu- 
nas das Contas de dois meses. 





ENTRADA DE DADOS 0,1 
O ou 


A planilha está dividida em várias cé- 
lulas, que estão organizadas por coorde- 
nadas (coluna, linha), Por exemplo: a con- 
ta ENTRADA corresponde ao dado (0,1): 
a conta LUZ (0,4), o mês de JANEIRO 
corresponde à coluna 1, e assim por 
diante. 


Primeiramente, digite as contas nas cé- 
lulas da coluna “Q”. Sua planilha ficará 
assim: 
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: BL IMENT. 


.————————— o —— um ——o—— a 


:-TOT.DESP. 


e um um o ut e —— e — a e am a a a ca 
- . 


COMANDO ?7<EN,AL,CA,DX,EX, IM,SA> 
«mm 

Após o preenchimento desta coluna, 
digite o comando desejado, 

EN — entrada de dados 

AL — alteração 

CA — cálculo do saldo do mês 

DX — move a planilha para a direita 

EX — move a planilha para a esquerda 

IM -- imprime as despesas do mês 

SA — grava O programa e os dados da 
planilha 

Para a ENTRADA DE DADOS (linha 
60 a 220) digite EN e NEW LINE e de- 
pois o mês. Digite apenas os valores da en- 
trada do mês e as despesas (luz, água, tele- 
fone, alimentação). Para digitar as outras 
células basta apertar a tecla NEW LINE, 
pois elas serão preenchidas na rotina de 
cálculo. 





————— o a — — o o a o 
Dm o mm mm mm mm o — mm cm o e e e 
——e— e ——— a a a O a O a a a a cm 
> — ua um um mu um mm mm mm mm o o mm O a mm 
—— e u—e——e—õ— mm mm O a e e 
,—o———————o—— O mm 
o —— um — om mm mm mm cm mm mm O o e e a ma a mm at mm + 
O a a O a e a — o O a e o e o mo 
———— o uu mm mm mm mm —— 


COMANDO ?<EN,AL,CA,DX,EX, IM,SA> 
“me 





Nancy Mitie Ariga 


Caso haja alguma alteração a ser feita 
(linha 410 a 530) digite AL e N.L, em 
seguida o mês em que será feita a altera- 
ção e a linha a ser alterada, Depois, in- 
troduza o novo valor desta célula, Por 
exemplo: mês 1, linha 6 para 6000. 





ad =." .. 


Sua planilha ficará assim: 





COMANDO ?<EN,AL,CA,DX,EX, IM,SA> 
o 1 


Quando todos os dados estiverem cor- 
retos, digite CA e N.L. Esta rotina de 
CÁLCULO (linha 720 a 840) coloca o sal- 
do do mês anterior no saldo anterior des- 
te mês (linha 760); soma a entrada do 
mês com o saldo anterior, colocando o re- 
sultado no total da entrada (linha 770); 
calcula o total das despesas (linha 780) e 
calcula o saldo do mês (linha 790). 





Digite o programa anexo e verifique 

o funcionamento deste Minicalc que 
apresentamos. Mas digite exatamente 
como a listagem se apresenta, sem alte- 
rar nomes ou números, caso contrário 
a Soma Sintática não será a mesma (o 
programa Soma Sintática deve ser co- 
locado na RAMTOP, portanto antes 
de digitar o programa).* 

DIM UsS(13,9,9) 

DIM U(13,9) 

LET Cs=0 

REM EN 

GOTO 3130 

PRINT AT 21,8; 

INPUT M 

IF M>)12 OR M<1 THEN GOTO 780 

LET C=M 

PRINT Lo 


S di 


.. HES - 


eso 
RINT AT 21,0; "ENTRADA DE D 
:D 
o a qua HS 
170 1F CODE H$<=27 OR CODE H$>= 
38 THEN LET ULC41,D)=a 
182 IF CODE H$527 AND CoDE H$<3 
8 THEN LET UtZ+41,D) “VAL H$ 
190 LET N=LEN H$ 
2ee IF C>0 THEN LET US(C+1,D,10 
-N TO ) =H$ 
2160 IF C-Q THEN LET U$(C+41,D) =H 


20 NEXT D 
238 COSUB ese 
240 PRINT AT 21 e; “COMANDO 2<EN 
,RL,CP,DX, EX, IM,SA>* 
256 INPUT 
F Sa DI ago 
H$="EX” 370 
HE="CA” >28 
, 4193 
so 
sao 
Esse 


+1 
THEN LET M=14 


= À 
THEN LET M=1 
32 


FL. 
PRINT AT 21,0, "MES= 


INPUT 
IF 0,12 OR M<1 THEN GOTO 43 


PRINT AT 21,5;M;" LINHA= “;, 
INPUT Z 

IF Z>59 OR Z<1 THEN GOTO 454 
RINT Z 


| OR CODE H$>= 
AND CODE H$<3 
=UAL Hs 


a EESTI 
nn ULHAO 
OUTUBRO E 





à: ENTRADA 100034 

:SALDAANT. oo 
P:TOT .ENTR.  J100200 
ro. Soo 
BEAGUA 00 

TELEFONE cod 
D ALIMENTO o 20000. 
à. TOT.DESP. 35000 
SALDO 6s00 


COMANDO 7 <EN,AL,CA,DX,EX, IM,SA> 
“mm 


Os comandos DX e EX movem a plani- 
lha para a direita ou para a esquerda, pos- 
sibilitando uma visualização global da pla- 
nilha. 

Se você possui uma impressora e deseja 
listar a relação de despesas do mês, utilize 
o comando de IMPRESSÃO (linha 540 a 
640). 


MEMÓRIA OCUPADA: 
3.108 bytes 


SOMA SINTÁTICA: 
56.320 


* Veja Microhobby 5 ou X . 


PRINT AT 21,0,” 


NPUT M 
E M>)12 OR M<1 THEN GOTO S7 


RINT AT 21,133: 
é CBarnr Codamas-.scum-1>* 
LPRINT 


“,USt 


UuaL O MES ? 


; “PREPARE O GR 


“APERTE O REC 


EM CA 
PRINT AT 21, BD; "QUAL O MES 7 


INPUT 
sr m>15 OR M<1 THEN GOTO 73 


+91 
+1,1) HMItT+1 


+1,4) +LIC+I 
+1,3) -ULC+4I1 


1 THEN LET M=1 
IF 4=12 THEN LET M=511 
LET ASt16 TO 18) =B$(M43-2 T 


ASt26 TO 28) -B$3(1M49+1 T 


Bs 
2 PRINT CHRS$S (7+156),CS 
NEXT Z 


1030 PRINT AT F+re,2,Ustci,FI,AT F 
bi? ogia sUGiM+1,F);AT F+2, 2ê;uUsimec 


iodo NEXT F 
1859 SLOU 
1960 RETURN 





ONT] DE LIS TI 
ENTRADA .es.e 1800990 
SOLO.ANT. ..-.. a q 
TOT.ENTR. couro 100020 
LUZ seses S00U 
RGUR senso s000 
TELEFONE .cc.e seso 
RLLIMENT. ccvco 200004 
TOT.DESP. .eve. 35008 
SALDO ses. 6svoo 


Para a gravação do programa. bem co- 
mo os dados da planilha (linha 650 a 840) 
digite SA e NEW LINE. Portanto, quando 
você recuperar o programa gravado nu- 
ma fita cassete, através do comando 
LOAD “ “” e for manusear os dados gra- 
vados, NÃO UTILIZE o comando RUN, 
caso contrário, ele apagará os dados já ar- 
mazenados. 

Agora que você conhece o funciona- 
mento do Minicalc, utilize sua imaginação 
e crie novos Minicalcs. Sugestão: crie um 
comando que possibilite o movimento da 
planilha para cima e para baixo. 


SUB-ROTINAS DO PROGRAMA 


linha 10 - dimensiona a ma- 
triz da planilha 

- dimensiona a ma- 
triz para os valores 
numéricos da plani- 
lha. 

-— entrada de dados 
na coluna “6 
(Contas) 

- entrada de dados 
por mês (colunas 1 
a 12) 

linha 236 a 325 — controle do coman- 

a ser acionado 
linha 336 a 366 — move a planilha pa- 
a direita 

linha 376 a 400 — move a planilha pa- 
ra a esquerda 

— alteração de uma 
célula da planilha 

linha 546 a 646 — imprime a relação 

de despesas de um 
mês 

linha 650 a 716 — grava o programa e 

os dados da plani- 


linha 20 


linha 36 a 56 


linha 66 a 226 


linha 416 a 536 


lha 

linha 7260 a 846 — calcula o saldo do 
mês 

linha 856 a 1066 - elabora a formata- 
ção da tela 






Experimente digitar estes dados 


para o mês de fevereiro: 












ms e o o—o— o o — a 


ENTRADA 204000. 


.SALD.ENT.. 


us -—o———u— o —o— O um o cm —— 











—-—- e ——————— O 
o— a a a a a a O a a O a a 

—— — e e ————— o ——————— — 
a a e e O a O a a a a O a a 
—o— ——————— o — o — O io et a Sa a a 


COMANDO 7«<EN,AL,CA,DX,EX, IM,SA> 
id 

Depois faça os cálculos com o co- 
mando “CA” e a seguir mova a plani- 
lha para a esquerda utilizando a rotina 
FER: 



















- * 
eu ———— o a a a a — —— a um a am 


:ENTRADR 100009 |” 229000 
COMANDO 7 <EN,AL,CA,DX,EX, IM,SA> 
pa 

Repare que o saldo do mês de janei- 
ro foi colocado durante a rotina de cál- 
culo no saldo anterior do mês de feve- 
reiro. O 
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E O a 


PER —— 





COMPUTADORES 
NO 
RALLY 


O 1 Rally Universitário Hermes Mace- 
do, encerrado dia 10 de dezembro foi tal- 
vez o mais importante evento automobi- 
lístico desde 1980, quando recomeçaram 
as competições para estreantes e novatos 
suspensas em 1976. 

Nestes últimos anos, mais e mais com- 
putadores têm se aliado ao homem para 
auxiliá-lo mas mais diversas atividades. 
A sua dinâmica tem sido explorada desde 
as profundezas do mar aos confins do es- 
paço e seu trabalho tem sido reconhecido 
como indispensável pelo mundo todo. 

A Microdigital esteve presente no Ill 
Rally patrocinando dois carros: o número 
200, pilotado por Marcelo Chamie (o 
Lufão) e navegado por Tácito Mistrorigo 
de Almeida (o Tito), que correram como 
estreantes apenas na terceira etapa e em- 
bora tendo problemas mecânicos, obtive- 
ram boa colocação. Mais sorte porém teve 
o carro número 381, pilotado por 
Francisco Rodes Fauss (o Chico) e nave- 
gado por Francisco Loschiavo Neto (o 
Chiquinho), que participaram como vete- 
ranos e que venceram a primeira etapa do 
Rally (Santos); foram 2º colocado na se- 
utnda etapa (Campinas) e na IV etapa 
(Sorocaba) e chegaram em 13º na tercei- 
ra etapa (São José dos Campos), ficando 
classificados em segundo lugar na conta- 
gem geral dos pontos, 

Contando apenas com competidores 
universitários, este Rally quebrou o recor- 
de mundial de participantes: mais de 350, 
dos quais boa parte se utilizou das vanta- 
gens de se ter um computador ou calcula- 
dora a bordo para auxiliar nos cálculos de 
navegação com rapidez e precisão durante 
as provas. Computadores como o TK-85 
tiveram papel decisivo para se alcançar 
boas colocações, na opinião de navegado- 
res como o Tito e o Chiquinho que, 
insatisfeito como segundo colocado, pro- 
mete ganhar disparado na próxima cor- 
rida, contando mais uma vez com a ajuda 
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de um TK-85 da Microdigital. 

Show a parte, porém foi a maneira de 
instalar os computadores nos carros tanto 
elétrica quanto mecanicamente. Apesar 
de ter de suportar trepidações durante 
cerca de 300 km por 6 horas, havia até 
carro equipado com TRS-80 da Radio 
Shack! A equipe patrocinado pela Micro- 
digital (as duplas Chico-Chiquinho e 
Lufão-Tito e o técnico em Hard/Soft, 
Tanios Hamzo) optou porém pelo conjun- 





So 


FOTO: Walter Morais 


to micro-TV, que apesar de dar mais tra- 
balho, ficava mais portátil e maleável. 
Quanto à parte eletrônica (os cinco inte- 
grantes da equipe são estudantes de enge- 
nharia eletrônica na E.E. Mauá) o “know- 
how” desenvolvido será analisado na ses- 
são HOBBY do próximo número desta re- 
vista, e esperamos que lhe seja útil, mes- 
mo que você não esteja pensando em to- 
mar parte em um Rally, mas que possa 
querer instalar seu computador no carro.O 


Pres] 
o a O Poa 
wi 


“Howard W. Sams” agora em português 


Em anexo estou remetendo q importância de Cr$ 

em, Cheque Nº c/Banco 7 

ou Vale Postal Nº. fnviar à Agência Central SP) 

para pagamento do(s) Livro(s), (assinalar) que me serão remeti- 
à dos pelo correio. 

Cheque ou Vale Postal, pagóvel em São Paulo, a favor de: 

EDITELE Editora Técnica Eletrônica Ltda. 

Caixa Postal 30.141 - 01000 - São Paulo - SP 


ÇOS VALIDOS POR TEMPO LIMITADO 






























TK-FILE 


GERENCIADOR DE 
BANCO DE DADOS 

PARA A LINHA TK 

E COMPATIVEIS! 


Programa com alta velocidade de 

processamento, pelo emprego de rotinas 

em código de máquina. 

Com ele você terá um versátil arquivo, 

com grande liberdade para definir os itens 

desejados, formar fichas, formatar e 

imprimir OS relatórios classificados, 

selecionar, alterar, incluir e excluir 

dados e armazenar seu arquivo 

em fita cassete. 

Acompanham completas instruções 
para operação do programa. 

Para adquiri-lo via correio, basta 

enviar carta com seu nome e endereço 

completos anexando cheque no valor de 
Cr$ 11.790,00, nominal à MULTISOFT 

INFORMATICA LTDA. - Caixa Postal 
54121 - CEP 01296 - 
SÃO PAULO -SP 


es “Une a ela ala 
E aço CAIXA POSTAL - 3447 


$ 4 eat etata eta N ooo 80.000 - CURITIBA - PR 


MONITOR E DISASSEMBLER 


cetos eira + nastuemecta 





er , 


* 4 kbyios de programa intaimento em linguagem de máquina, 


o Suas 68 Instraçãos (amo Dnunga SO múgUino Gra GnaaNÍnicOS aUaRaAS: 2:00 fudrio 


* Possui 23 comandos mentores para lor, escrever, transíori, apagar, exucutar, gravar, carregar blocos 
Se programas em lnguagm de máquina 


* Lé registros da CPU e endereços da ROM e RAM com satós hexadecimal + sllsmumérica. 
* Permite operação simultâneo com outros programas em BASIC oq Rnguagem de méquina 


* Forramenta indispensável para estudo desenvolvimento s adição de programas em linguagem 
compativel com os micro-computadores TK-82 / TE-83 / TK-8S NE-Z BO0O a CP 200 - 16 K. 


— Desejo adquinr o programa CW BUG. Estou anexando che- 
que Nº: meme Banco NS om + nominal à CW'B 
MICROCOMPUTADORES LTDA, no valor de CR$ 8.500,00. 
OBS: As despesas de remessa estão incluídas no preço. 

NOME. 

ENDEREÇO: 

CIDADE 








O MICRO ROBÔ QUE JOGA XADREZ 


Uma novidade bastante interessante, 
lançada na -- ainda comentada -- feira da 
informática do último ano, é o simpático 
micro robô KALT-400. O robô é formado 
por um braço mecânico com seis eixos, 
que se movimentam em ângulos que va- 
riam de 0º a 180º. Ele pode ser utilizado 
em diversas atividades; desde o auxílio a 
deficientes físicos até ao lado de um soli- 
tário jogador de xadrez, como um verda- 
deiro parceiro. . 

O KALT-400 atende a comandos pro- 
gramados em qualquer microcomputador 


(inclusive os compatíveis com o TK-83), | 


como também comandos em qualquer lin- 
guagem. No BASIC, foi realizada uma ex- 
periência que resultou no seguinte mini- 
programa: 10 POKE X,Y, onde X define o 
eixo e Y a posição do eixo selecionado. 


O BASIC PRESENTE NO INTERIOR 
DE SÃO PAULO 


Marília, cidade do interior de São Pau- 
lo, preocupando-se com a necessidade 
emergente por informações na área da In- 
formática, inaugurou o CIM — Centro de 
Informática Marília. 

O Centro oferecerá cursos de BASIC, 
a linguagem mais usual e simples de com- 








COM 


CONVERSE 
PROFISSIONAI 


NOVIDADES 


putação, em três níveis. O primeiro e o se- 
gundo, atingirão as crianças a partir dos 
cinco anos de idade e trabalharão com 
elas. no sentido de desenvolverem a sua 
criatividade, através do raciocínio lógico 
e crítico, dentro de uma visão humanis- 
tica. O terceiro nível, destina-seiao público 
jovem e adulto, oferecendo-lhes os princi- 
pais conceitos relacionados ao uso do mi- 
crocomputador na linguagem BASIC, evi- 
dente! 














UMA MÁQUINA DE ENDEREÇAR 


Foi lançado em São Paulo pela Novel 
Print (empresa fabricante de etiquetas e 
fitas) uma máquina de endereçamento ' 
postal automático. O equipamento, apre- 
sentado na última feira da Informática, 
denomina-se Tickopress 19 SD/MD e foi 
idealizada com o objetivo de efetuar um 


INFORMÁTICA LTDA. 






— Cursos regulares de Linguagem BASIC ou com 

horário a combinar, para executivos € para 
ualquer microcomputador. | 

— Corea sobre GRÁFICOS em Basic, para JR, 
DISMAC. 

— Venda de micros pelo correio: JR, MAXXI. 

— Transformamos televisão para monitor. 

— Consultoria em SOFTWARE para 


ASSESSORIA 


Antes da escolha de seu micro 
nos diga qual o seu problema. 
Nós o orientaremos 
na escolha do micro CERTO 
para você 
ou sua empresa. 




















SOFTWARE 


Linha completa 
de software aplicativo. 
Desenvolvimento de software 

específico para sua 
necessidade. 

Linha completa de programas 

para TK e CP-200. 







microcomputadores. niéê 
— Especializada em programas pará Hewlett 


85. 
— Programas prontos para HP 85 e 87: 


Packard 


















CURSOS 
BASIC |, BASIC AVANÇADO 


e Mala direta e agenda de clientes * Movimentação 

bancária com código de despesas * Datilografia | 
automática de circulares com busca de adapte na 

fita e Topografia * Contabilidade de autônomo: livro 

caixa * Jogos diversos * Folha de pagamento 

e Controle de estoques * Controle para Postos de 

gasolina * Controle de processos para Marcas e 

Patentes * Controle de aluguéis * Contas a pagar 


e Contas a receber 






- Excelente material didático, 
no máximo 10 alunos 
por classe e 1 micro 

para cada 2 alunos. 










SHOW ROOM E VENDAS: 


UATA SULUTilid 


VENHA NOS VISITAR 
AV. EUSÉBIO MATOSO, 654 - CEP 05423 - SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 


FONE: 813-3355 





Rua Pinheiros, B12 - CEP 05422 
Pinheiros - SP 


Tel.: (011) 8871-0022 








e 
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volvendo em sua fábrica, um laboratório 
de análises e instalando máquinas de en- 
tintar em OCR e corte de filme de polieti- 
leno. Todo este investimento em máqui- 
nas, resultou no lançamento dos disketes 
Datadisk, das fitas Qume, LGM 3287 (em 
4 cores), Grafix 80 e 100, além de uma 
linha completa de fitas em cores. 


OS JOGOS DA MULTISOFT 


Os usuários de micros têm agora à sua 
disposição uma série de 16 jogos em fitas, 
lançados pela Multisoft. São fitas que 
agrupam de dois a três programas com 
2K de memória, e podem ser utilizados 
em microcomputadores como os TKs 82 
e 83. Entre os jogos disponíveis para ven- 
da nos revendedores estão: “Invasores, 
Desafio Espacial, Bombardeio, Smag- 
Smag, Confronto, Minotauro, Laser, Lim- 
peza Cósmica entre outros. 





FITAS COLORIDAS 
PARA IMPRESSORA 
endereçamento automático em todo tipo 


MICRODIGITAL NO RIO 
de correspondência, desde envelopes até 


Investindo grande potencial na amplia- 


revistas. O processo de endereçamento é 
realizado com o empilhamento dos enve- 
lopes na parte anterior da máquina que os 
separa por unidades, aplicando as etique- 
tas sempre na mesma disposição, alcan- 
cando uma velocidade média de até 70 


ção de suas empresas, o Grupo Machado, 
formado pelas empresas Data Ribbon, Mr. 
Data e Datrix, um grupo fabricante de 
fitas magnéticas e disquetes, resolveu par- 
tir, neste segundo semestre, para um 
ritmo mais intenso de automação. 


Os usuários dos micros fabricados pela 
Microdigital, no Rio, já possuem um local 
para levar os seus aparelhos encrencados. 
A empresa inaugurou em Ipanema, na 
Rua Visconde de Pirajá, 414-conj.606, 


"2 


uma filial para prestar assistência técnica 
aos usuários de seus aparelhos. O 


PROTEJA SEU 
MICRO 


aplicações por minuto. Com este objetivo, o Grupo está desen- 






ENTRADAS DA GALERIA: 
LOJA: Galeria Metrópole, lj. B - 1º s/loja Av. São Luiz, 187 - (Antigo 153) 
Teis.: 259-1503/257-6118- SP Praça Dom José Gaspar, 106 - SP 


SEMPRE NOVIDADES 


- MACHINE LANGUAGE PROGRAMMING MADE SIMPLE FOR 
YOUR SINCLAIR & TIMEX TS1000 - ZX8B1 - Zx80 - 
Melbourne 
MASTERING MACHINE CODE ON YOUR Zx81 - Ton Baker 

- APPLE ||- GUIA DO USUÁRIO - EDIÇÃO EM PORTUGUÊS - 
Osborne 

- A CONSTRUÇÃO DE UM COMPILADOR - Setzer 

- À PRIMEIRA MORDIDA - Apple Il - maxxi unnitron- 
microengenho- Tucci 

- BASIC SEM SEGREDOS - Mirshawka 

- ESTRUTURAS DE DADOS - Furtado 
INTRODUÇÃO A LINGUAGEM BASIC 
PIMICROCOMPUTADORES - Lederman - 

- O MICROCOMPUTADOR NO CONSULTÓRIO MÉDICO - 
Nascimento 
49 EXPLOSIVE GAMES FOR THE ZX81 - Hartnell - 

- THE TIMEX SINCLAIR 1000 - INCLUDES 50 READY-TO 

* RUN PROGRAMS 

- GETTING ACQUAINTED WITH YOUR VIC 20 - Hartnell 

- asse 2 DE MÁQUINA PARA O TK - 82-83-85 









ESTABILIZADORES 
ELETRÔNICOS 
DE TENSÃO 


28.000, 
18.000, 


9.800, 
5.700, 


4.200, 
6.500, 
6.900, | 
6.350, | 


5.200, 
14.100, 


16.000, 
16.000, 


6.500, 







e ULTRA SILENCIOSO 
e ALTO RENDIMENTO 


e BAIXA DA TENSÃO DE 
SAIDA: + 10% da Tensão 
nominal 









“OS OUVI NA gg 


Potência — Monofásico: 
05 KVA até I5KVA. 


Trifásico: 10KVA até 

200 KVA. Para alimentação de 
Mini e Micro Computadores, 
Equipamentos Biomédicos, 
fotocomposição, laboratórios, 


ZENTRANX 


ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 
NO BREAK ESTABILIZADORES DE TENSÃO 







Sn QI Mo 






tassempbler 2-80) Rossini 
- FAST BASIC - BEYOND TRS-80 BASIC - Gratzer - 24.600, 
- ENHANCING YOUR APPLE Il - Lancaster - Ce 30.400, 
- O COMPUTADOR: UM NOVO SUPER-HERÓI: - 1983 - 

157 páginas 5.400, 
É um livro que desvenda todos os mistérios dos computadores, desde seu 
nascimento até a lingua que eles gostam de usar para conversar conosco 
Destinado ao público infanto-juvenil e a leigos no assunto. Autores: Maria 
Cecilia C. Baranauskas/Helaisa Correia Silva 







— ut + 








ATENDEMOS POR REEMBOLSO 
CORREIO E VARIG - (fora da Capital) 
PEDIDOS PARA: CX. Postal 9280 
CEP 01051 - SÃO PAULO - SP 






Rua Elias Mahfuz, 22 - CEP 04746 - Santo Amaro - SP 
Tels.: (011) 522-2159 e 548-0651 
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PROGRAMAS DO LEITOR 


EQUAÇÕE S ALGÉBRICAS 
E TRANSCENDENTAIS 


1. O MÉTODO 


O método utilizado no programa deno- 
|mina-se “Método de Bolzano ou de bis- 
“secção”. É um processo simples de apro- 
“Ximação sucessiva para determinar raizes 
reais de uma equação algébrica ou trans- 
cendental. Partindo-se de um ponto 'x' 
menor que a raiz procurada, o método in- 
crementa 'x', sucessivamente, por 'h”, até 
que um intervalo de amplitude 'h' seja en- 
contrado, de modo que f(x) e f(x+h) te- 
nham sinais opostos, isto é, f(x) .f(x+h)< 
2. 

Uma raiz então é detectada entre 'x' e 
x+h'. A partir daí, o passo 'h' é reduzi- 
do à metade em todas as etapas seguintes, 
observando-se o seguinte: 

a. Se f(x) f(x +h)>Q, na etapa seguin- 
te usar-se-á O intervalo anterior reduzido 
à metade, com valor de 'x' incrementa- 
do pelo valor de 'h' (dessa etapa ante- 
rior), isto é, daquela em que foi obtido 
f(x). f(x+h)>0 [sinal (+)]; e 

b. Se f(x).f(x+h) <Q, na etapa seguin- 
te usar-se-á O intervalo anterior reduzido 
à metade, porém com o valor de 'x' man- 
tido da etapa anterior, isto é, daquela em 
que foi obtido: f(x) .f(x+h) <Q. [sinal (—)]. 

Desta forma, a raiz é sempre aproxi- 
mada pela esquerda e em qualquer etapa, 
a amplitude do intervalo do passo ante- 
rior dá o limite superior de erro. 

Encontrada uma raiz, pode-se partir de 
sua direita para localizar outra que por- 
ventura houver, 


2. O PROGRAMA 


a. Comandos BASIC 





28 REM “ ANO 

40 LET K=0 

SQ LET L=8 

60 PRINT AT S,4;* E JPP 
ODUZIU A SEJADA NH L 
INHA 600 7 (82M)* 

78 IN 


8a IF U$S="5" THEN GOTO 128 
se cLs 


108 PRINT AT S,1;"LISTE O PROCR 
AMA E INTRODUZA R FUNCAO DESEVAO 
AR NA LINHA 608. 

110 STOP 

120 LET H=B.5S 

138 o 


148 PRI AT S,3í; "ENTRE COM UM 
VALOR QUALQUER MENOR QUE A R 
RAIZ PROCURADA,“ 

158 INPUT XxX 

188 LET K=K+1 

3 cl 

180 GOSUB 60e 


Fr 
INT AT 5, X=s “;X;AT 7,41 
Sa Hé agia E dd 
PRINT AT 11,1;“F(0O = “;6;8T 

e HD) = “;P 
THEN' GOTO S16 


=8 

0 THEN GOTO 530 

Ss (F-G) <=.0001 THEN GO 
+G 
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3180 PRINT AT à1S,i; CISINIL 14) 


320 PRINT AT 17,31;0DIG) " «NEU 

L INE 
USE 999 
Ses CotcofosSo sea, 
= H SOTO «sua 

368 IF FsG>0 THEN GOTO 

378 LET Xa=x-m ear 

80 LET H=H,2 


o 188 

428 IF K<=10 THEN GOTO 188 

& PRINT AT 5,1; “APOS INCREMEN 
EZÉS, NAO ENCONTREI 

ôie PRINT AT 9,1; "PARA DESISTIR 
dE .. 
PRINT AT "PARA TENTAR 
OUTRO VALOR INTCÉAL DIGITE QUALO 
VER FECLA E E” 


a THEN STOP 


PRINT AT 17,1;"X= pop Sado 


32º PRINT as 247,3; “Xw “;MX-t9;” É 


s ses Lucao 
q. . LET F=EXP X-34X 
618 RETURN 

620 


STOP , 
630 SAVE “RAIZES DE EQUACAES' 
648 RUN 


MEMÓRIA OCUPADA: 
1556 bytes 


SOMA SINTÁTICA: 
21289 





b. Variáveis utilizadas 


X: valores das abscissas da função 
f(x); 
H: valores das amplitudes dos in- 
tervalos utilizados; 
G: valores para f(x); 
F: valores para f(x+h); e 
K, L e US$: valores auxiliares para 
controle das mensagens 
pertinentes às diversas 
situações encontradas, 


c. Observações 


1) A função f(x) da qual se quer 
pesquisar o valor de 'x” tal que 
fix)=0, deve ser, previamente, 
definida na subrotina 600. Caso 
isto seja esquecido pelo pesquisa- 
dor, o programa irá lembrá-lo 
desse fato; 

2) O intervalo 'h' está, inicialmente, 
fixado em 0,5 de amplitude. 

3) Está previsto o caso onde um 
dos valores assumidos por 'x' ou 
'x+h' venha a se constituir em 
uma raiz exata da equação. 

4) Caso o valor inicial escolhido pa- 
ra 'x' não permita, após dez eta- 
pas, encontrar um intervalo [x, 
x+h] tal que f(x).f(x+h) <Q, o 
pesquisador será consultado se 
desiste da pesquisa, ou se quer 


Pedro Antonio Carlini P. de Souza 


atribuir outro valor inicial para. 


X | reiniciando o processo itera- 
tivo, 

5) O programa pode ser utilizado 
num TK83, hão sendo neces- 
sária a expansão de memória. 

6) O cálculo da raiz está previsto 
com aproximação a menos de 


00001. 
3. OTESTE 


O programa foi testado com diversas 
funções e valores arbitrários iniciais para 
DE. 

Os comandos “basic” do parágrafo an- 
terior apresentam para teste a equação 
e*-3x=0. Para tanto, definiu-se na li- 
nha 600 a função: 


608 LET F=EXP X-3+axX 


Partindo-se do valor inicial x=(, de- 
pois de 15 impressões de resultados, 
obtêm-se a solução. Reproduzimos a se- 
guir alguns resultados: 

a. Primeira impressão: 

qX= €C,.6171975 

H= . 803920625 

Xx+H= 94,.62109375 
F(XI= .002144€524 
F(X+H) = -.0025318909596 
SINAL €-) 

DIGITE «<NEU LINCE» 


b. Segunda impressão: 


X= €.6171875 

H= .00909765625 

X+H= 0.61815406 
F(X) = .C021446524 
F(X+H) = .0010261093 
SINAL (+) 

DIGITE «NEt LINE» 


c. Décima quinta impressão: 


X= 0.610016056 

H= .0000651035158 

X+H= 0.61007959 

F(X) = .000949536693 
F(x+Hm) = -.20900020916574 


X= 0.61901856 E* A SOLUCARO. 





O autor deste programa, é bacharel licenciado 
em matemática pela PUC-SP e atualmente dá 
aulas na área, na PUC-SP e nas Faculdades 
Oswaldo Cruz. 6) 


tig Loader. 


TIG-LOADER possibilita: 


e à localização do ótimo volume do gravador, facilitando a 
operação LOAD. 

* DUPLICAR qualquer programa, mesmo aqueles 
“fechados” 

* carregar (LOAD) e DUPLICAR simultaneamente. 

* gravar (SAVE) em 2 gravadores ao mesmo tempo. . 

* monitorar as operações LOAD, SAVE ou DUPLICAÇÃO 
através de fone. 


e filtrar as interferências elétricas de baixa frequência, que 
são a causa da maioria dos problemas de LOAD/SAVE. 


Mu ifetila 


COM. DE EQUIP P/COMPUTADORES LTDA. 
Rua Correia Galvão, 224 - CEP 01547 - São Paulo 


NÃO CARREGUE ESTES PROGRAMAS! 


V. não precisa mais carregar estes programas: eles estão prontos pa- 
ra uso, em CARTUCHO! Conecte o cartucho, ligue o micro e... só! 
Seis aplicativos à sua disposição, esperando V. comandar. SEM mo- 
díficar seu micro. E a expansão de memória é usada normalmente! 
Como lançamento, o TIGRE oferece: hi-speed, renumerador, apaga- 
dor de linhas em bloco, soma sintática, disponibilidade de memória e 
rotinas de vídeo em um único cartucho! É ESPETACULAR!!! 


ESCREVA PEDINDO INFORMAÇÕES 


Envie seu pedido + cheque cruzado. Atendemos somente por carta. 
Prazo de entrega: 15 dias. Solicite relação de programas em tita. À 
Despesas postais incluidas nos preços. 


de Fejo receber o TIG-LOADER : para tanto, estou anexando ochequent no valorde Cr$ ma 








PROGRAMA DO MÊS 


Gustavo Egídio de Almeida 


Você é Kid Dedo Lerdo, o melhor (e 
único) xerife da região onde fica Micro- 
Town. 

Lá, encontram-se Jonny Ringo, Jesse 
James, Billy The Kid, Sundance Kid, os 
irmãos Dalton, Kid Reagan e outros gran- 
des matadores. Você veio à MicroTown 
para acabar com todos eles, e agora segue 
pela rua principal da cidade. 

Cuidado! Em cada esquina pode haver 
alguém à sua espera, e, se assim for, você 
não poderá fugir ao DUELO! 

O confronto será inevitável e só lhe 


restarão duas opções. . . Matar ... ou 
Morrer! 

Aguarde o momento certo e... “Fo- 
go!!" (Figura 1). 


E ” 2ee 
o 
EXE iirsa 


Aquele que disparar primeiro, ficará 
para contar a história ... 

Eu sinto pena de você, pois o temível 
e esquizofrênico Kid Reagan, o maior de 
todos os matadores, o odeia! Decidido a 
liquidar você, trouxe à MicroTown toda a 
sua quadrilha e você só sairá da cidade 
num caixão! 

Portanto, se você quiser continuar vi- 
vo, continue matando! 

Tome cuidado com sua consciência, 
pois você é uma pessoa honesta e se dispa- 
rar antes do momento ...“Fogo!l”, irá 
punir asi mesmo (Figura 2). 


E o 2080 
” E DESOBEDECEU REGRAS 
Contagem: 


— À cada passo percorrido —> 5 pontos 

— (Caso vença 0 Duelo —> 50 pontos 

— Desobedecendo as regras > —5 pontos 
Para mover, (O) use a tecla 7 

Para atirar use a tecla 0 

Inimigo — (") 

Muita atenção no momento da digita- 
ção! 

Cuidado para não digitar comandos ou 
funções, letra por letra, 

Funções, como por exemplo INKEY$, 
devem ser digitadas da seguinte maneira: 
SHIFT NEW LINE tecla que contém a 
função. 
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Caracteres gráficos usados: 


“ EE “-SHIFT9€SHIFTH 

“ MM "-=SHiFT9€esHIFTSPACE 

“ [e] -SHIFT9eSHIFTB 
Observação: Para alterar o grau de difi- 
culdade do jogo, devemos listar a linha 
350 através do comando LIST 350 e 
NEW LINE, depois usar SHIFT EDIT. 

Feito isso, é só mover O cursor para 
a direita através do comando SHIFT 8 
repetindo a operação até que o cursor pa- 
re de se mover. 

Agora, delete o último caractere, digi- 
tando SHIFT RUBOUT. Digite uma das 





letras abaixo: 

B 

A 

R 

Pronto, está feita a alteração. Experi- 
mente fazê-las e veja O que acontece em 
cada uma delas. 

Como você pode notar, na listagem do 
programa, são utilizadas funções pouco 
usuais para computadores de 16K ou 
mais de memória, mas muito usadas em 
programas com no máximo 2 K de RAM, 
Funções “estranhas” como VAL, mas 
muito importantes porque economizam 
bytes, diminuindo significativamente a 





(bica we sm O". EM 





Wo, PD 4º rd rp. A 


SBD PRI PARIRCROA LO <p pLIy 


memória do programa. 

Por exemplo: 

Quando fazemos: 

10 LET C= 10 NEW LINE, 
ocupamos 16 bytes. 

Agora, se ao invés disso, fizermos: 

10 LET C= VAL “10 NEW LINE 
ocuparemos 13 bytes. 

Você pode constatar isso através do 
comando: PRINT PEEK 16396 + 256 * 
PEEK 16397 — 16509. 


AGUARDE: 
COMO ECONOMIZAR MEMÓRIA 
NO TK, NA SEÇÃO DICAS. 

















2 c 

3 LET K=VAL “1” 275 LET C=C+(C<B) -(C>8) 

& LET R=ÇAL “ie” 288 NEXT 

S LET AsVAL “8” 290 PRINT AT S- KM) ve am vm am 

& LET PeK-K 300 PRINT AT R,R; e. 

7 LET B=VAL “4” 312 FOR F=k TO de ar ND +D) +D 

8 LET S=R-K a 320 IF INKEY$="B2" THEN GOTO VAL 


F =P To A STEP K+K 330 





















NEXT Fo 
25 PRINT AT F,P; “ES  MNUC,,: 340 PRINT Eça 
gs 350 FOR Per 6º Tier -K) + 
ao NE F 360 NEXT F 
SO PRINT AT K «Ri PONTOS: 36S IF INKEY$="0" THEN GOTO VAL 
60 PRINT AT S,B;* Tm 
76 IF INKEv$="7* THÉN RT, 548 bas- 35 PRINT AT S,C;“.“;AT S,C; "x" 


) 
IF INKEvY$="7" THEN LET Pe=P+ 
IP 5<K THEN e cd 3 =R-K 





88 LET L=INT (RND4B) CEU REGRAS" 

oO IF LEK THEN GOTO VAL “200” 410 PAUSE VAL “poe” 

1506 GOTO D+R 425 PRINT AT S-(K+4K)3 =) edi: 
200 PRINT AT 8,B;"“o” 430 LET PesP-(BsK) 

205 LET C=INT (RNDECK+KI) 445 PRINT AT R,A;“ 

220 IF C=K-K THEN LET C=A-K - 

2360 FOR H=K TO R 452 GOTO D 

248 PRINT AT S-(K+K),C;"Mr;aT Ss ses FoR NESK ro a 

A TR s18 PR AT S-(K4KI,C;".";aATr s 
256 NÉXT HM TUEO E e ç 

255 PRINT AT K.R+a;P see dede = 

266 FOR Fsk TO B- S30 LET PeP+D 

270 PRINT AT S- CSM Ci ;aAr S3S PRINT AT S-(K+4KJ,C;” * 
S-tK+K5,C;" * S40 GOTO VAL “445” 





(o, 
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e q a a e 


ARTIGOS 


14 programas 
para meditação 


Este pequeno artigo simplesmente 
apresenta alguns programas escritos em 
Basic, cujo efeito deveria ser analisado pa- 
a “meditação” por todos que já tenham 
um bom conhecimento de Basic-TK. 


Comecemos brincando com a tela. . 


PROGRAMA 2 


10 FAST 
20 SLOW 
30 RUM 


PROGRAMA 3 


PROGRAMA 3 


1º PRINT AT 21 
20 PRINT “HAaRnm 


PROGRAMA 4 


SLOW 
FOR 





Agora, vamos à precisão numérica do 
TK: 


PROGNRAMA S 


10 LET ia brado dada 
«O PRINT 


PROGRAMA 6 


10 LET neo. 20091 
2a LPRINT 


PROGRAMA 7 


LET X=-4 
20 PRINT Xs5+42 
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Como você explica os números aleató- 
rios gerados pelo próximo programa? 


PROGRAMA EB 


(190 «RND) 





Execute o programa a seguir e, no fi- 
nal, faça um LIST do mesmo... 


PROGRAMA 9 


PRINT “LENNON” 
PRINT “MECCARTNEY” 
POKE 15510,º2 

coTo 2 





Agora, com o auxílio de um relógio, 
cronometre o tempo de execução dos 
próximos dois programas. . . Tente expli- 
car a diferença! 


PROGRAMA 10 


PROGRAMA 11 


SLOW 
FOR Y=34 TO 43 
FOR X=54 TO 653 








“assimetria” 


tente explicar a 
que ocorre nesta figura após O cruzamen- 
to das duas “linhas” 


Agora, 


PROGRAMA 12 


190 SLOU 
£O FOR I=O TO 2 


1 
me? PRINT TAS I;“H';TAB (21-T); 
40 NEXT IT 





Utilizando as teclas 5, 6, 7, 8 ou O 
joystick, movimente o “ponto piscante” 
gerado pelo próximo programa para cima 
(tecla 7). O que ocorre quando você ten- 
tar sair da tela? Isto acontece em todas as 
direções? 


PROGRAMA 13 


PLOT XN, Yu 
s ad XH=X+(INKEY $=" 8“) - (INKE 


E 
7º. LET wWhti=zY + (INKEYS="7"3 = (INKE 
Y88* 
285º UNPLOT X,Y 
BO LET X=xht 
885 LET Y=YNW 
Se coTO Eq 


E, para finalizar, um pouco de lógica... 


PROGRAMA 14 


D 


AND A>3) 
1 OR 5-1) 
ATLES* 
As 


m-upegAs 


(NO 
(a »> 
tfã= 
(ta « 
(q> 
(18 
a". 
LEI 
AS. 


Db 








PROGRAMAS 


Para aqueles que têm um computador 
de 2 k de RAM e não possuem expansão, 
a Microhobby apresenta, este mês, dois 
programas divertidos. 

O primeiro é o “São Francisco ”, uma 
cidade dos Estados Unidos que já sofreu 
vários abalos sísmicos (por estar constru í- 


da sobre uma falha geológicaje que agora, 


(no nosso contexto) está sendo abalada 
por um tremor de terra e sendo destruída 
gradativamente. Pouco a pouco vão sur- 
gindo buracos (GRAPHIC SHIFT H) devi- 
do ao terremoto e você, o “O” represen- 
tado na tela, como o último dos habitan- 
tes, deve lutar pela sobrevivência mas 
nunca abandonar a sua cidade, 

Utilize as teclas 5, 6, 7 e 8 para loco- 
mover-se à esquerda, direita, descer e su- 
bir, ou do Joystick, escapando dos bura- 
cos que o ameaçam. 

O jogo termina quando você cair em 
um deles ou sair das delimitações da ci- 
dade. 

O segundo é o “PAREDÃO”. Para 
quem nunca jogou paredão e quer saber 
como jogar, aqui está sua oportunidade! 

Você (GRAPHIC SHIFT 5) deve reba- 
ter a bolinha (O) que bate na parede (na 
tela, localizada à esquerda), utilizando-se 
das teclas 6 para descer e 7 para subir. 
Quando você efetuar um total de três jo- 
gadas, na tela aparecerá o total de pontos 
conseguidos. 

Conhecendo estes dois jogos, mãos à 
obra! 


[7/2430 :4 BJAO E DR 
SÃO FRANCISCO, 


se 
«4 


Introduza os programas tomando cui- 
dado para nunca digitar as funções RND, 
PEEK, INKEY$, INT, VAL, PI, letra por 
letra — isso deve ser feito com o cursor 
em . Por exemplo: para obter a fun- 
ção RND, tecle SHIFT NEW LINE T. 

Para conferir os programas, utilize-se 
da Soma Sintática (publicada na edição 


SÃO FRANCISCO 


PRINT *“ 

FOR N=1 TO 14 
PRINT “E ur 
NEXT N 


PRINT “Ed 
68 LET P=16524 


LET S=0 
POKE P,S2 
O PRINT AT 20,8; "PLACAR=";,S5 
«PRINT AT 1+(RND%13),1+(RNDa 
IF PEEK P<»>5S2 THEN STOP 
POKE P,O 
LET 5S=53+1 
140 LET Papi Popisob DS ph “7 — (INKEY 
85. O ES RSA 3 - (INKEY $ e 


ise IF PEEK P<>58 THEN STOP 
168 coTo 8a 


MEMÓRIA OCUPADA: 
550 bytes 
SOMA SINTÁTICA: 
21409 





número 5 de Microhobby). Para isto, co- 
loque inicialmente o programa da Soma 
Sintática e “dê” RAMTOP. Feito isto, di- 
gite os programas exatamente conforme 
as coordenadas dadas, caso contrário, as 
modificações efetuadas por você nos pro- 
gramas, alterarão o resultado da Soma 
Sintática, 


PAREDÃO 


S LET Teval vo 


Cc. As . 
6S IF A=VAL “O” THEN LET C=INT 
(RND45) +14 
70 LET A=A-PI/PI 
so LET B=B- (INKEY 8="7") + (INKEY 


PRINT AT B,UPL "“13";"5r 
A=A-PI/ZPI 


o dy 
* AND B=C THEN 


LET T=T+PIZPI 
* A=VvAL “28” 


soro va 


THEN GOTO va 


= 0 
“es S=SFPI/PI 
IF Sc<vaL “4a” THEN GOTO VAL 
PRINT “SEU PLACAR = “;T 


MEMÓRIA OCUPADA: 
360 bytes 
SOMA SINTÁTICA: 
23565 
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HOBBY 


Não há nada mais medonho para um 
digitador do que a idéia de ver um progra- 
ma quilométrico (aqueles com 15,9 k By- 
tes) evaporar, antes de tê-lo gravado em! 
fita. 

Alguns computadores mais recentes 
possuem um tipo de memória que jamais 
esquece, a não ser propositadamente. 
Os TKs e tantos outros computadores 
pessoais têm o que se chama de ''memáória 
volátil”, ou seja: interrompendo-se a ali- 
mentação elétrica, mesmo por muito pou- 
co tempo, a memória “esquece” para 
sempre seu conteúdo. 

Para espantar este “fantasma da amné- 
sia” de uma vez por todas, costuma-se 
usar um sistema conhecido por NO 
BREAK, que não interrompe a alimenta- 
ção elétrica ao micro, mesmo que haja fal- 
ta de energia elétrica na rede, ou, num ca- 
so comum (pelo menos para mim) onde o 
usuário, muito excitado durante um jogo, 
chute sem querer o fio da tomada. 

Em sistemas de responsabilidade, a ins- 
talação de um NO BREAK é crucial. O 
TK, que pode ter aplicações diversas, po- 
de ter diferentes motivos para conservar 
sua memória por prazos igualmente varia- 
dos. 

Segundo minha concepção, são três as 
categorias de NO BREAK: 

1. INSTANTÂNEA: Quando se quer 
que a memória não se perca por alguns 
instantes, enquanto se troca de tomada; 
quando houver instalação elétrica intermi- 


jack da fonte 
O a 


L1 N9/ 5% 


tente (com bruscas variações de tensão ou 
em tomadas, extensões ou “benjamins” 
com mau contato, evidenciado quando se 
mexe neles para ligar um gravador, por 
exemplo) ou ainda quando aquele seu 
querido priminho vem te visitar e quer 
descobrir o que acontece se o compu- 
tador for desligado quando você está 
usando. A memória será mantida por 
alguns minutos. 


2. PORTÁTIL: Quando se quer que a 
memória seja mantida, enquanto o 
computador é transportado de sua casa 
até a casa de um colega; da escola até o 
clube ou do escritório até um cliente. A 
memória poderá ser mantida por algumas 
horas. 


3. PERPÉTUA: Em sistemas realmen- 
te NO BREAK, que não podem parar: 
alarmes residenciais, comerciais ou indus- 
triais; controle de processos; em soft- 
houses e em ocasiões em que o micro de- 
va funcionar indefinidamente sem inter- 
rupções, independente da disponibilidade 
da rede elétrica. A memória poderá ser 
mantida por dias. 


Abordarei o primeiro e o segundo ca- 
SO, que me parecem mais interessantes 
para o leitor, porém ficarei atento à cor- 
respondência pedindo complementação 
do artigo. 

Chamei o projeto de INSTAN-TK e 
seu esquema elétrico pode ser visto na fi- 
gura 1. 


D2/N 
D3 A 


D4 


/N B1 
Ada 


Figura 1: INSTAN-TK, esquema elétrico. 


26 MICROHOBBY 


Quantidade 


Diversos: 





Tanios Hamzo 


Todos estes componentes podem ser 
facilmente encontrados em casas do ra- 
mo. Atenção para a polaridade de diodos 
e do L.E.D., bem como a sua sensibilida- 
de ao calor excessivo. Verifique as liga- 
ções antes de ligar o aparelho. 

FUNCIONAMENTO DO CIRCUITO: 
Apesar de ser um circuito aparentemente 
simples em sua configuração físi- 
ca, há diversos detalhes dinâmicos acumu- 
lados em cada componente. Farei uma ex- 
planação do funcionamento conjunto, 
descrevendo a(s) função(ões) de cada 
parte. 

Ao se ligar o plugue da fonte no circui- 
to, através de J1 e este ao computador 
através de J2, observa-se: 

Com a fonte ligada, haverá passagem 
de corrente para o computador através de 
D1, que está diretamente polarizado, sem- 
pre que a fonte estiver ligada. No entanto, 
quando ela não for mais capaz de suprir 
energia, ficará o diodo D1 inversamente 
polarizado, não conduzindo energia das 
pilhas para outro lugar senão para 0 com- 
putador. Com isso, ficarão com carga des- 
tinada exclusivamente para o compu- 
tador, garantindo seu funcionamento. 
Além disto, este diodo melhora a atuação 
da fonte, aumentando sua retificação, sua 
impedância e ainda reduzindo em cerca 
de 0,6 volts sua tensão de saída, o que 
pode contribuir para minimizar o aqueci- 
mento do regulador interno de tensão do 
computador. 


LISTA DE MATERIAL: 
Components/Tipo 
4 Diodo 1N4002 


L.E.D. de qualquer côr 
Interruptor de 1 pólo 

Jack fêmea 

Jack macho 

Resistor de 820 92, /4W R1 
Pilhas alcalinas de 1,5V B1 
Suporte(s) para pilhas  — 
Caixa plástica — 


O d md md od ud 


= 2 
a 


fio, solda, placa de circuito impresso 
ou ponte de terminais, etc. 





ev Rad] 


e 


tt 


E Pe sá 


O L.E.D. (diodo emissor de luz) L1 
serve para se monitorar a atividade da 
fonte, apagando, quando ela não estiver 
operando e atestando seu funcionamento, 
quando estiver ligada. O resistor R1 limi- 
ta o consumo do L.E.D, em cerca de 0,01 
amperes. . 

O interruptor S1, além de proporcio- 
nar a interrupção da corrente, desligando 
o aparelho, também pode ser útil como 
um RESET, pois não tendo a inércia dos 
eletrolíticos da fonte, proporciona um 
rápido POWER-UP e POWER-DOWN, 

Os diodos D2, D3 e D4 formam, em 
série uma diferença de potencial tal que 
os 9 Volts provenientes da associação das 
pilhas acabam se equiparando aos vales da 
flutuação da tensão da fonte. Estes vales 
podem chegar próximos a 7 volts, equili- 
brados com os 9 menos os 2 volts resul- 
tantes dos três diodos. No protótipo, a 
d.d.p. foi de 0,015 volts, insuficientes pa- 


ra provocar uma descarga nas pilhas (que 


aliás andam bem carinhas). Estes diodos 
também impedem que os picos de tensão 
da fonte polarizem reversamente as mes- 
mas; fazem com que sejam mais lenta- 
mente consumidas, aumentando sua vida 
“util. A impedância adicional que estes 
diodos criam, também contribui para re- 
duzir a corrente de descarga. 

As pilhas substituem a energia da fon- 


te automática e instantaneamente após 
sua falta, o que torna imperceptível ao 
usuário e ao computador saber se está 
consumindo energia da rede, via fonte ou 
das pilhas. 

Quando em teste, o INSTAN-TK foi 
capaz de suprir a ausência da fonte por 13 
horas e 56 minutos ininterruptamente, a 
um consumo constante de 600 mA no 
modo SLOW, pois verifiquei ligeiro declí- 
nio no consumo quando o computador, 
em modo FAST, não mostrava a tela. 
Conclui-se então que o consumo varia se a 
tela é mostrada ou não e que o compu- 
tador consome menos energia em modo 
FAST e rodando um programa (sem mos- 
trar a tela) do que em SLOW ou durante 
uma instrução PAUSE ou ainda parado 
(ocasiões em que a tela é mostrada). 

Condições de teste: 

Computador usado: TK 82-C sem expan- 
são de memória. 

Características das pilhas: 6 pilhas novas 
tipo alcalina, tamanho grande, 1,5 V cada. 
Circuito: INSTAN-TK original, aqui des- 
crito. 

Efeitos colaterais: nenhum efeito colate- 
ral foi observado sob condições normais 
de temperatura e pressão. 

Melhoras adicionais: melhor imagem, livre 
de interferências da rede e menor aqueci- 
mento do computador. 


Figura 2: INSTAN-TK, lay-out da placa de circuito impresso. 





Dependendo da aplicação específica 
do computador, o tempo que o aparelho 
é capaz de substituir a fonte pode dimi- 
nuir com o uso de periféricos, tais como 
expansão de memória, impressora, etc. 
Se este for o seu caso ou se assim preferir, 
uma bateria de maior porte (e com con- 
sequente maior potência) de 9 Volts po- 
derá ser usada (como aquelas usadas por 
fotógrafos para flashes eletrônicos, por 
exemplo), que ainda estará o aparelho na 
categoria de “temporariamente portátil”, 
segundo os itens 1 e 2. Pode-se ainda usar 
pilhas recarregáveis, com a mesma vanta- 
gem da bateria de flash; longa durabilida- 
de e possibilidade de recarga. 

Por experiência própria, me sinto em 
posição de aconselhar a montagem e uso 
(ou só o uso) do INSTAN-TK pela sua 
grande utilidade, segurança (esqueça a to- 


mada) e economia (de tempo e paciên- 
cia). E por falar em economia (o que agra- 
da a gregos e troianos e principalmente a 
árabes e judeus) o aparelho tem a caraçte- 
rística de não inutilizar completamente as 
(caras) pilhas, que ainda ficam com carga 
suficiente para fazer um rádio portátil 
funçionar (principalmente as alcalinas). 

A figura 2 mostra um exemplo de 
lay-out da placa de circuito impresso do 
INSTAN-TK (que, aliás, poderia muito 
bem ser batizado de JUMBO. Não é ver- 
dade que os elefantes jamais esquecem?) 
com as devidas indicações de onde e co- 
mo montar os componentes. Aos pontos 
da placa marcados com +B1 e —B1, solde 
os terminais do porta-pilhas, devidamente 
polarizados. 


Até o próximo número! O 
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RESPOSTA DO 
QUEBRA-CABEÇA 


Para nossa surpresa e grande satisfação 
do nosso amigo e colaborador Nabor 
Rosenthal, recebemos a tempo para publi- 
car nesta edição, uma solução parcial do 
Quebra-Cabeça proposto no número ante- 
rior. À proeza deve-se a Gamal Saty, que 
descobriu existir uma mensagem codifi- 
cada na sequência de pulsos recebida. 


Ao que nos parece, ele não teve tempo 
de analisar o conteúdo da mensagem, de 
modo que continuamos aguardando que 
algum de nossos leitores a interprete e tra- 
duza as informações nela contidas (essa é 
a segunda parte do Quebra-Cabeça). 


Como todo “ovo de Colombo” a pri- 
meira parte desse Quebra-Cabeça pareceu- 


- nos muito simples (depois de resolvida), 


pois é bastante lógico ao pensarmos em 
enviar uma mensagem ao espaço, cons- 
truí-la na forma de uma matriz cujo nú- 
mero de elementos seja o produto de dois 
primos. Haja visto a mensagem enviada 
aqui da Terra, através do radiotelescópio 
de Arecibo, cuja forma é a de um retân- 
gulo de 73 linhas e 23 colunas (número 
total de elementos = 73x23 = 1679) — 
veja figura 1. Uma sequência de pulsos 
com essa característica (número de pul- 
sos = produto de dois primos) é muito 
mais facilmente transformada em uma 
matriz, visto que só há uma forma de se 
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fazer isso! No caso de nosso Quebra- 
Cabeca, o número total de pulsos é 931, 
Decompondo-o obteremos: 


9311 31 
31/31 
1 


= 931 = 31x 31 


Ou seja, ele é exatamente o produto de 
dois primos! 


Veja, a seguir, como Gama! obteve a fi- 
gura a partir dos pulsos: 


“.. À sequência consiste de exata- 
mente 961 pulsos (0 e 1's) que formam 
um quadro de 31 linhas por 31 colunas 
(31x 31). 


O primeiro programa apresentado, co- 
foca os números diretamente numa ma- 
triz A$(31,31) o que facilita em muito o 
programa, porém o programa número 
dois, embora um pouco mais extenso, fa- 
cilita muito a entrada de dados, pois os 
mesmos entram de acordo com a sequên- 
cia publicada na revista, ou seja, a cada 
16 pulsos, sendo assim mais fácil carregar 
os dados. Os mesmos são colocados numa 
matriz A8 (16x 16), logo em seguida rea- 
grupados numa matriz com uma única li- 
nha e depois transformada em outra ma- 
triz (esta finalmente com 31 linhas e 31 
colunas). 


MENSA 
International 





O quadro formado pela sequência de 
O a 1's, indica o desenho de uma antena 
de micro-ondas ou mesmo um radio-teles- 
cópio, sendo possível se ver no canto su- 
perior direito, o logotipo do TK. 

Este desenho foi possível, plotando-se 
um gráfico a partir da matriz de 31 linhas 
por 31 colunas. 

Agora, pode-se fazer a opção: 
Programa LGM1, mais curto e simples, 
porém os dados entram em uma linha de 
31 pulsos, apresentando certa dificuldade 
para se introduzir os dados da maneira co- 
mo foi publicado pela revista. 

Programa LGM2, que embora mais exten- 
so, facilita a entrada de dados, pois o mes- 
mo entra numa linha de 16 pulsos. 
A listagem de LGM1 
à BEN Cena serv 


10 DIM AS(31,31) 
1S FOR N-1 TÁ 31 


53 PRINT “HOUVE ERRO 7? (S/N) 
68 IF INKEYS="" THEN GOTO 69 
6S IF INKCyY$="S" THEN GOTO 28 
780 NEXT HM 


| 
7S REM FárrdtterrrsFIA RARE, 
8S FOR 1=1 TO 31 


9a FOR J=1i TO 31 
95 IF Ag(I,J)="0" THEN PLOT 4, 


at E .. 
136 PRINT fed. E “"GOoOTO -óii en 


Pp 
140 STOP 





) 
| 
| 

, 

i 





«. « Devido a certa pressa para enviar a so- 
lução, acredito que no programa 71 
(LGM?1), não digitei corretamente os da- 
dos, pois no LGM2, há uma pequena di- 
ferença no quadro formado que, além das 


A listagem de LGMZ2 


1 REM GCAMAL SATY 
18 DIM A$(51,15) 
20 FOR N=1 TÔ 61 


'sti ) “2 R 
características já mencionadas, apresenta «43 PRINT “QUER TROCAR ALGO ? 
» 4 as 
também na parte inferior direita, a silhue 42 IF INKEV$="" THEN coro 42 
ta de um possível ser (será o E.T.?!). Co- Go Queer Re ESSES ONTO TES, 


mo já disse, o programa 2 apresenta intro- 
dução de dados de maneira mais fácil, 
por isso os dados foram recolocados neste 
programa e que por isso, acredito estar 
com o desenho correto. 

Devido a certa dificuldade em chamar 
LGM2 regravei o programa em velocidade 
normal nas seguintes posições: 210-247; 
2600-300; 310-355". Gamal Saty - União 
da Vitória, PR. 


20 REM FrErEFIRTRARsSArAS Ra+ 
10660 DIM D$(31,315 
110 LET E$=A$(1) 
120 FOR N=2 o 61 
1380 LET Egs=ES+AS (CN) 
NEXT WN 
160 REM srrRrRrrrRrRrrrsEE, 
190 LET G=1 
192 LET H=31 
200 FOR =1 TO 314 
210 LET D$(1) =E$S(G TO MH) 
220 LET G=6+31 
230 LET H=H+51 
240 NEXT II 
£6B REM 434% 4448447124 72347544F3 
900 FOR I1I=1 TO 31 
3160 FOR * TÃ DA 
320 IF D$(I,J)="0" THEN PLOT JU, 


tá 


(o 
" 


—- 


o od ul ul nda 
dd ut ut ud culo 
SD dt «a (3 
um (D 
a 


-. 
a ut ut ud (5 


— 





o o o ss -— a te o o o 
DO 0000000€ 

+ + SO O 

-. OD + = 3 
SO0O0<« « O00<- « OO +. Doo--< 
S000- O- «00 Socoo 2000- 
ES ca dE a di 
Oo-900 O-S090 
So0o000 000900 
“000 -9000 
ErnEs E 
OCO « DO «+ + OOo << O00 « —« 
QO000=« 09009000 So-9s0o O00900- 
OO «a O 4 a O O+“+“30 O =<“00- 
ESTUER “8 am 
Oo-00o0 - —s O-9S00 
Soooso a S0c00 
“29000 - -290090 
EELLE: - ESSEE 

ne E dl 
O « 


SO STOP 

3S6B SAVE “LG E 

370 PRINT “TECLE “GOTO 300"" P 
ARA EXECUTAR O PROGRAMA SEM PERD 
ER OS DADOS” 

380 STOP 


Figura 2: 


E 


"LEE TIA 


Figura 1: 





Números de 1 a 10 


Números atômicos do Hidrogênio, Carbono, 
Nitrogênio, Oxigênio e Fósforo. 


Fórmulas dos açúcares e bases nos nucleotí- 
deos do DNA, 


Números de nucleotídeos do DNA. 


Representação da estrutura do DNA, 


Forma humana. 


Altura da forma humana. 





População sobre a Terra. 


Sistema solar. 


» 00009 OO 


AN Rádio-telescópio de Arecibo. 
——» 


0 
l 


é 
Q 


= o 
-=—o 
— 


k 
Tras 0 Diâmetro do radiotelescópio. 


k 
b 
Mensagem enviada com o radiotelescópio de Arecibo. À esquerda, está uma figura como a obtida pelo Gamal no TK e à direita, as informa- 


ções convenientemente interpretadas. 
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Relação | 
das lojas autorizadas 


| a receber 
“assinaturas 


A.D. DATA COM. SERV. DE 
INFORMÁTICA LTDA. 
Rua João Ramalho, 818 — SP. 


ALLCOLOR COM, E REPRESENTAÇÕES 
LTDA. 

Rua Carlos Porto, 85 —'Jacareí, SP 

CEP 12300 


BEL —- BAZAR ELETRÔNICO LTDA. 
Av. Almirante Barroso, B1 — Lj. C — RJ. 


BRASIL TRADE CENTER COM. E 
PARTICIPAÇÕES S/A. 
Av. Epitácio Pessoa, 280 — RJ — CEP 22471 


CASA DO MICROCOMPUTADOR SiIST. E 
PROC. DE DADOS LTDA. 

Av. Anhanguera, 2574 — Centro — Goiânia, GO 
CEP 74000 


CENADIN — CENTRO NAC. DESENV, DA 
INFORMÁTICA 
Rua José Maria Lisboa, 580 — SP 


CESPRO — CURSOS DE ESPECIALIZAÇÃO 
PROFISSIONAL LTDA. 

Rua República Arabe da Síria, 15 — S/207 
Ilha do Governador, RJ — CEP 21931 


CHIP SHOP COMPUTADORES LTDA. 
Rua Ofélia, 248 — SP 


COMPUTEC LTDA. 
Rua Mairinque, 66 — CEP 04037 — SP. 


COMPUTER CENTER 
MICROCOMPUTADORES MÃA. E SISTEMAS 
LTDA. 

Rua Lopes Trovão, 134 — Slj. 247 Center V — 
icarai — Niterói, RJ —- CEP 24220 


COMPUTER HOUSE — JOÃO CANDIDO 
COLLADO 
Av, Andrade Neves, 1254 — Campinas, SP 


COMPUTRONIX VENDAS E SERVIÇOS 
LTDA. 

Rua Sergipe, 1422 — Belo Horizonte, MG 
CEP 30000 


DATA SOLUTION LTDA. 
Av. Eusébio Matoso, 654 — SP 


DIDADOS INFORMÁTICA E ADM. LTDA. 
Rua Minas Gerais, 655, s/602 — Divinópolis, 
MG 


ELDORADO COMPUTADORES E 
SISTEMAS LTDA. 

Rua Visconde de Pirajá, 351 — Lojas 213/4 — 
RJ —- CEP 22410 


ELETROSOM LTDA. 
Rua da Concórdia, 287 — Recife, PE 
CEP 50000 
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ENSICOM — ENG. DE SISTEMAS E COMP. 
Rua Marques do Herval, 409 — 12,5/15 — 
Taubaté, SP - CEP 12100 


ENTEC REPRES. LTDA. 
Rua Lauro Muller, 700 — 
CEP 88300 


Itajai, SC 


EXATRON INFORMÁTICA E ELETRÔNICA 
LTDA. 
Alameda dos Arapanes, 841 — CEP 04524 — SP 


EXPOENTE COM. E REPRESENTAÇÕES 
LTDA. 

Av. Siqueira Campos, 838 - CEP 57000 — 
Maceió, AL. 


GRUPO D.G.B. CONSULTORIA ADM. 
EMPRESARIAL S/C LTDA. 

Rua Dr. Murici, 706 — ala “B'*, 10 
PR 

AIC Sr. Dirceu Guimarães Brito 


— Curitiba, 


GUAÇUMAQ — MAQ. E EQ. P/ ESCRITÓRIO 
LTDA. 

Rua Antonio Gonçalves Teixeira, 97 — 
Mogi-Guaçu, SP 


GUARANI PRESENTES 
Av. Senador Vergueiro, 4964 — 10 — s/6 
Rudge Ramos, S.B. Campos, SP — CEP 09720 


HECTOR A. FERNANDEZ —- MIRAGE CINE 
FOTO 

Rua Gal, Câmara, 648 — Sta. Barbara D'Oeste, 
SP — CEP 13450 


LIVRARIA POLIEDRO 
Rua Aurora, 704 — SP - CEP 01209 


LOG COMPUTADORES LTDA, 
Pça. Cândido Dias Castejon, 34 — Slj. — 
S. José dos Campos, SP — CEP 12200 


MAPSS — ENGº COM. E IND. LTDA. 
Rua Getúlio Vargas, 186 — T. Otoni, MG 
CEP 39800 


MAURITINO PIRES SILVEIRA 
Rua Manduca Rodrigues, 924 — Sant'Ana do 
Livramento, RS 


MEMOCARDS — MATERIAIS DIDÁTICOS 
LTDA. 
Rua Amador Bueno, 855 — Ribeirão Preto, SP 


MICROSYTE SIST. E EQUIPTOS. 
COMPUTACIONAIS LTDA. 
Rua Buenos Aires, 41 — 3º — RJ. 


MICROCENTER COMPUTADORES LTDA. 
Av. Santos Dumont, 2749 — CEP 60000 
Fortaleza, CE 


MICRO CENTER INFORMÁTICA LTDA. 
Rua Conde do Bonfim, 229 — Lj. 310/2 — 
Tijuca, RJ — CEP 20520 


MICRODATA IMPLANTAÇÃO FÍSICA SIST. 
LTDA. 
Rua Montreal, 16 — SP - CEP 02832 


MICROESPAÇO COM. E REPRESENTAÇÕES 
LTDA. 

Av, Barão do Rio Branco, 2288/1501 — Juiz de 
Fora, MG — CEP 36100 


MICRON INFORMÁTICA LTDA. 
Rua Benjamin Constant, 56 — sl. B04 — Viçosa, 
MG — CEP 36570 


MICRO PROCESS COMPUTADORES LTDA. 
Al. Lorena, 1310 — SP — CEP 01424 


MORGEN — COM. DE COMPUTADORES 
Rua Mal. Deodoro, 51 — Gal. Ritz, 140 
s/1405-A — Curitiba, PR 


NADAIS EQ. DE SOM LTDA. 
Rua Amador Bueno, 213 — Santos, SP 


NASA SHOP EQUIPTOS. ELETRÔNICOS 
LTDA. 
Rua “4”, 1042 — Centro — Goiânia, GO 


NÚCLEO DE ORIENTAÇÃO DE ESTUDOS 
Av. Brig. Faria Lima, 1451 — Conj. 31 
01451 — S. Paulo — Fone: 813-4555 


PROSERV PROC. DE DADOS CURSOS E 
REP. LTDA. 

Lgo. 9 de Abril, 27 — s/628 — Ed. Cecisa || — 
Volta Redonda, RJ 


RC MICROCOMPUTADORES LTDA. 
Av. Estados Unidos, 983 — CEP 13400 — 
Piracicaba, SP. 


RITZ CINE FOTO LTDA. 
Rua Frei Caneca, 7 — Santos, SP — CEP 11100 


SHOP COMPUTER CEDM LTDA. 
Av. São Paulo, 718 — Londrina, PR 
CEP 86100 


SIETEL SERV. INST. ELÉTRICAS E TELEC. 
LTDA. 

Rua Cel. Joaquim Neto, 32 — Sta. Rita do 
Sapucaí, MG — CEP 37540 


SISCOMP SISTEMAS E COMPUTADORES 
LTDA. 


Rua Tiburcio Cavalcante, 298 — Fortaleza, CE 


TELEMÁTICA COM. E IND. LTDA. 
Rua Figueiredo de Magalhães, 286 — s/616 
Copacabana, RJ — CEP 22031 


TELEVÍDEO LTDA. 
Rua Marques do Herval, 157 — Recife, PE Õ 








PROGRAMAS 


Você se encontra de passagem em uma 
metrópole, com um trânsito “de doido” 
O seu objetivo é andar a maior quilome- 
tragem possível, na avenida principal, evi- 
tando os outros motoristas que — veja 
só! — insistem em seguir o caminho opos- 
to ao seu, sem respeitár sequer a mão de 
direção! Além disso, você não pode subir 
na calçada, sob pena de perder a carta de 
motorista e impedido de continuar a jor- 
nada (nesta cidade, detestam forastei- 
OS...) 


Introdução do Programa 


Este programa possui um trecho em 
linguagem de máquina. Para introduzí-lo, 
você deve inicialmente digitar o programa 
mostrado na figura 1. Neste programa, a 
linha 1 REM deverá conter 50 pontos, 


=16514 TO 16565" 


eJsdueutv mm 
Z0OUMTUT 


fig. 1 


Após a introdução, digite RUN e intro- 
duza os números (decimais) da listagem 
(figura 2). 


LISTAGEM DECIMAL. 


16514..42 16515..12 


16561..243 


16562. .2801 





fig. 2 


Ao terminar, digite LIST. A linha 
REM conterá os vários caracteres que cor- 
respondem aos códigos em linguagem de 
máquina (figura 3). 





lay EC€RND)7*, FAST Gas CLE 
SGN LPRINT : <q*S$4 PRINT 
Tan” SECRNOT 24 PRINT «< NEXT TAN 


FOR É cd a TO 16362 


Nana 





fig. 3 
Digite POKE 16510,0 para evitar que 
você distraidamente apague ou edite a li- 
nha 1, perdendo todo o programa em lin- 
quagem de máquina. Sua linha REM terá 
agora o número Q e, desta forma, não po- 
de ser editada, nem apagada, Uma vez to- 
mada esta providência, apague uma por 
uma as linhas de dois a oito. 


oBREM EgRND)7*; FAST 


Ws?7( C 
AR FAST SON LPRINT 


: <éSsa PRINT 
TAN P-ECRND7ZM? 2 PRINT ( NEXT T 





A seguir, digite o programa em BASIC 
mostrado na figura 4, 


O programa 


Ão terminar de digitar o programa em 
BASIC, digite RUN. Na tela você verá as 
instruções. Você pode escolher cinco ti- 
pos de trânsito, digitando um número en- 
tre 1 e 5. Lembre-se: o número de moto- 
ristas doidos que aparecerão na sua fren- 
te, é diretamente proporcional ao número 
digitado. 

Para desviar-se desses malucos, utilize 
a tecla 5 para mover seu carro “8” para 
esquerda e a 8 para movê-lo para a direita. 
No canto inferior você pode acompanhar 
a sua trajetória, verificando o número de 
quilômetros percorridos. 

Caso você consiga desviar dos outros 
motoristas, simbolizados por “ s] “ ou 
subir na calçada, o computador, um seve- 
ro guarda de trânsito (mas que só pune 
quem é estranho na cidade, no caso você) 
lhe impedirá de prosseguir, tomando-lhe a 
carta e indicando o local do acidente, 

Apesar de severo, o computador-guar- 
da lhe dará sempre uma nova chance de 
recomeçar, desde que volte ao ponto ini- 
cial da avenida. Se você aceitar, digite 
“S”, se não, “N”. 

Boa sorte! Mas cuidado para não ficar 
neurótico. O 





MEMÓRIA OCUPADA: 
2.111 bytes 


EM ECN “RBS sã Ai Ed 
sT 
fa a PAST SG LPGINT PRINT *fext mn 


REM HICROHOBBY 
e LA 2000 
LET H5S=ê 





negou 


BORE” 16418 
A Eis Bio O; “RECORDE :-", Ha 
has o ON 2 e Gm 22'0: 


pd foi pa 


139 POKE 16418,2 
14 PRINT AT 20.0, “me 


38 PRINT AT gogaogonao 
o ENsosoossddoss AT To pa 


á NEXT I 
Sa PRINT AT O 
000000000000000 
60 LET L=11 
LET TIO 
REM COMECO 
4 RND>.8 THEN GOTO Soo 
A=USR Ape 
A 15% 
ET X=X+ (INKEY 6="8"") — - (INKEY 


41 IF PEEK (PEEK aca Ena Ea 
K 1699743516) (2156 THEN GOTO 


LET TI=TI+1 
AT 21,19; “PONTOS:“;TI 
Ir Er ci PuEl PRINT AT 1,R 


2; "0000000000000 


CET G=INT (RND48+3) 
LET Qu=1 

IF L>14 THEN LET Q0e-1 
FOR F=1 TO 


AT 
AT 
q XX + (INKEY Gu 8") - (INKEY 


Se IF PEEK («PEEK 16396+256+4PEE 
fo PPT ODICA IDA THEN GOTO 18 


SSS LET TI=TI+1 
RINT AT 21, As; “PONTOS”; TI 
AT 18; gde 
<SK TER RINT AT 1,R 


F 
TO 1800 
PRINT AT 19,X- 1;"0 2.“;WT 44 


LET HSsTI 
RECORDE :"“,HS 
(8204) 7" 


18,2. 
"5" THEN GOTO 6 
="Nº THEN STOP 


s 
O,0,"eesrasaeras 5 y 


rar "o .." 
O; "NESTE JOGO AS 
, "INSTRUCOES SAO: ” 


MOVER P, ESOU 
cbvéRO pZ DIREITA) ci 

PRI "VOCE DEVE EVITAR OS 
UTROS” “CARR os QUANDO ELES VIE 
","RÔ S ENÉONT DO TIPO 
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Muitos de nós provavelmente já tive- 
ram o desejo, ou talvez apenas a idéia, de 
alterar, de alguma forma, a linguagem 
BASIC, para obter algum efeito especial 
no seu computador. O maior problema re- 
side no fato de que, estando a linguagem 
gravada em ROM (e não em RAM, como 
é feito em alguns computadores), não é 
possível alterar o seu conteúdo através de 
comandos no teclado. 

O primeiro impulso dos mais interes- 
sados seria o de fazer, ou mandar fazer, 
um novo conjunto de ROMs, com as mo- 
dificações desejadas, e substituir os origi- 
nais. Porém, uma pessoa mais criativa, 
que conheça um pouco do hardware do 
Apple, logo lembrará que existe o cartão 
periférico de 16K, que pode, sob controle 
do computador, substituir a ROM princi- 
pal. Todo o seu conteúdo pode ser trans- 
ferido à RAM do cartão, e as modifica- 
ções efetuadas por POKEs ou pelo moni- 
tor e gravadas num disco. 

A nossa equipe, pensando nisso, deci- 
diu tomar esse caminho, desenvolvendo 
um pequeno programa que serve como 
exemplo para os que quiserem fazer as 
suas modificações no BASIC. O programa 
permite ao seu usuário alterar as palavras 
reservadas do Applesoft, podendo substi- 
tuir, por exemplo, HOME por CLS ou 
PRINT por MOSTRE. O programa, como 
o leitor já deve ter percebido, exige a pre- 
sença do chamado language card, o cartão 
de expansão de 16K, sem o que este não 
funcionará como esperado. Para os que 
não tiverem este periférico, veremos, nos 
próximos artigos, como alterar este mes- 
mo programa para permitir a modificação 
dos comandos de DOS, que reside em 
RAM. 


O programa 


Antes de podermos entrar no funcio- 
namento do programa, devemos conhecer 
o formato em que estão armazenadas as 
palavras reservadas no Applesoft. A lista 
de 107 palavras se encontra gravada, se- 
quencialmente, a partir da posição 53456. 
Elas estão codificadas em ASCII, com o 
bit 7 no estado 1 indicando o final de 
uma palavra. Como as primeiras palavras 
são END e FOR, os primeiros 6 bytes são: 
32 MICROHOBBY 
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posição conteúdo ASCH 
53456 69 E 
53457 18 N 
53458 196 D 
53459 70 F 
53460 19 O 
53461 210 R 


O programa começa colocando numa 
matriz as palavras reservadas, separando- 
as quando o código de um caractere é 
maior que 127 (bit 7 = 1), estando defini- 
das, nas variáveis P e NP, respectivamente, 
a posição de memória inicial da lista de 
palavras e O número de palavras na lista 
(linhas 1000-140). Como a lista tem tama- 
nho fixo na memória, não podemos 
aumentar seu tamanho total, que é a so- 
ma dos tamanhos das palavras individuais. 
Para que esse limite não seja ultrapassado, 
a variável NB mantém a contagem do nú- 
mero de bytes que sobram depois de uma 
alteração. 

A seguir, o programa pede uma pala- 
vra, coloca um 1 no bit 7 da última letra 
(linhas 150-170) e procura palavra na ma- 
triz A$( ). Não existindo, é dado um avi- 
so; se a palavra digitada existe na lista, é 
pedida uma nova palavra para substituí-la, 
com o cuidado de não ultrapassar o tama- 
nho máximo da lista (linhas 180-200). 
A contagem de bytes sobrando é atualiza- 
da, o último byte da nova palavra tem seu 
bit 7 igualado a 1, somando-lhe 128, a pa- 
lavra é substituída na matriz, e a exe- 
cução passa à linha 150 para pedir uma 
nova palavra ou terminar (linhas 210- 
220). 

No final, o usuário tem a opção de fa- 
zer ou não, a alteração final no cartão de 
RAM (230). Se ele quiser fazêlo, o 
language card é preparado para receber a 
cópia da ROM e é instalada na memória, 
um pequeno programa em linguagem de 
máquina para chamar a rotina MOVE do 
monitor, junto com os parâmetros neces- 
sários para a sua execução (240). Partindo 
da posição P, a linha 250 POKEeia no car- 
tão de expansão, caractere por caractere, 
o conteúdo da matriz de palavras A$(). 
O POKE da linha 260 faz com que o 
RAM do cartão substitua o ROM da me- 
mória principal, tornando efetivas as mo- 





dificações feitas (até que, é claro, seja des- 
ligado o computador). 

A linguagem modificada pode ser ar- 
mazenada em disco com um 


BSAVE nome, A$DG94, L$2FFF 


Depois, para reinicializar o cartão, exe- 
cute os seguintes comandos: 


POKE —16255,6: POKE —16255,0 
BLOAD nome 
POKE — 16256, 


É claro que, se você quiser incluir esses 
comandos num programa, o segundo co- 
mando deve ser substituído por: 


PRINT CHR$(4); “BLOAD nome” 


Algumas observações 


1. Quaisquer programas escritos ante- 
riormente à uma modificação deste tipo 
na linguagem, não precisam (nem devem) 
ser alterados, pois o BASIC não armazena 
a palavra reservada e sim um código que 
a representa no programa. 

2. Este programa não deve ser utiliza- 
do num Applesoft já modificado, a não 
ser que se tenha completo controle sobre 
o que está acontecendo no computador. 

3. Lembre-se de que, se houver algum 
problema durante ou depois da execução 
do programa de modificação, o simples 
acionamento do interruptor do com- 
putador o resolverá, 

4. Com algumas modificações, este 
mesmo programa pode ser usado para mo- 
dificar as palavras do DOS, sem a neces- 
sidade de se ter um cartão de expansão de 
memória. Nos próximos números mostra- 
remos como fazê-lo. 

5. Alguns leitores já devem ter pensado 
em modificar as mensagens de erro, Utili- 
zando uma técnica semelhante (mas não 
igual, devido a uma diferença que há no 
armazenamento dessas mensagens) vere- 
mos, nos próximos números, como fazer 
isso no Applesoft e no DOS. 

6. Comentários dos leitores a respeito 
deste programa, ou de outros relaciona- 
dos ao assunto, serão bem aceitos pela 
nossa equipe. 


8 REM 44 TRADUTOR DE PALAVRAS 44 
91983 POR DENTRO DO APPLE 


169 P = S3456:NP = 197 

116 DIM AS(NP):NB = 85) =P - 4: 
HOME : PRINT TAB( 4);"TRAD 
UTOR DE PALAVRAS RESERVADAS" 
: PRINT; PRINT : PRINT "AGU 
ARDE..." 


128 FORI=1 TO NP:ASCI) = ** 


136 =) + I:AS(I) = AS(I) + CHR$ 


( PEEK (J)): IF PEEK (9) « 
128 THEN 136 

148 NEXT I 

158 PRINT: PRINT: PRINT "SOBRA 
M "5NB;* BYTES.*: PRINT “DIS 
ITE D COMANDO À ALTERAR --": 
PRINT * <RETURN)> PARA TERMI 
NAR:": INPUT "";AS: IF AS = 
** THEN 239 


206 M = LEN (AS(I)) + MB: PRINT 
: PRINT "SUBSTITUI"-LO POR « 
ATE” "sNL;" CARACTERES): *; INPUT 
""-B6:L = LEN (B6): IFL> 
NL DR L = 6 THEN PRINT CHR$ 
(7);: GOTO 268 

216 NB = NB + LEN (AS(I)) - Ls TF 
L = 1 THEN AS(I) = CHR$ ( ASC 
(B$) + 128): GOTO 159 

226 AS(I) = LEFTS (BS,L - 1) + CHR$ 

169 IF LEN (AS) = 1 THEN AS = CHR$ 
( ASC (A6) + 128): GOTO 189 

178 A$ = LEFTS (AS, LEN (AS) - 1 
) + CHR$ ( ASC ( RIGHTS (AS 
51)) + 128) 

186 FORI=14TONP: IF ASI) = 
A$ THEN 289 

1968 NEXT 1: PRINT : PRINT “ESSA 
PALAVRA NAO EXISTE"; CHR$ (7 
): GOTO 158 


( ASC ( RIGHTS (B$,1)) + 128 

|: GOTO 159 

INPUT "POSSO FAZER À ALTERAC 

AO FINAL (S/N)? ";AS:; IF LEFTS 
(A6,1) = "Nº THEN HOME s PRINT 
“NENHUMA ALTERAÇÃO FOI FEITA 

- TERMINADO. ": END 

FOR 1 = 4 TO 143: READ X,Y: POKE 
X,Y: NEXT 1: CALL 768 

PRINT ; PRINT “AGUARDE. ..*: FOR 
| =14 TONP:; FORJ=1TO LEN 
(A$(1)): POKE P, ASC ( MIDS 
(ASI) ,J,1)):P =P + ds NEXT 
J,1 

POKE 49288,6: HOME : PRINT * 
FIM DA ALTERACAO.": END 

DATA 768,168, 769,8, 779,76 

; 77,M, 772,254, 49281,6, 
49281,0, 68,0, 61,268, 62,25 

3, 63,255, 66,9, 67,288 
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Tio Fred List agradece a todos os que têm 
enviado programas e em especial a Gui- 
lherme Nogueira Rodrigues o two liners 
enviado, cuja listagem vem a seguir. A coi- 
sa que esse programa cria está mostrada 
na figura em anexo. 


O REM GUILHERME N. RODRIGUES 
SAO PAULO - SP 

| H6RZ : HCOLOR= 3: FOR X = 0 TO 
198:;P =X 4 ATNÍI) / 458 
368 / 279 4 4:32 = 12 + 279 / 
191:PZ2 = 128 ATNÍI) / 458 
368 / 279453 

2Y1= SIN(P)495+9YZ= COS 
(P2) 4 138 + 139: HPLOT X2,Y 
| TO Y2,X: NEXT 











Enviem suas colaborações para a “Se- 
ção Por Dentro do Apple” no seguinte 
endereço: 

MICROMEGA PM.D. LTDA. 

Rua Bahia, 1049 

01296 — São Paulo — S.P, 


EMSISA 


EMPRESA DE MÉTODOS, SISTE 


PROGRAME SUAS FÉRIAS 
APRENDENDO BASIC E COBOL 


Colaborações de Daniel Falconer e José Eduardo Moreira 
professores assistentes do Departamento de Computação da Escola Pueri Domus. 
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e DISKETES + MOVEIS PARA CPD 
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FORMULÁRIOS E ETIQUETAS 
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PHENIX-A GARANTIA DE QUALIDADE 
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A FITA DO MÊS 


Tig-Comp é um típico programa- 
ferramenta, cuja função é compilar os 
programas em Basic, ou seja, transformar 
os programas feitos originalmente em 
Basic, em programas de linguagem de má- 
quina do Z80, linguagem essa muito mais 
veloz que o Basic. 

Este software é comercializado pela 
Tigre-Comércio de Equipamentos para 
Computadores Ltda. 

O programa nos foi enviado, gravado 
numa fita de boa qualidade, acompanha- 
da de manual explicativo. (Fig. 1) 





Tig-Comp pode ser usado em todos os 
computadores compatíveis com a linha 
Sinclair, TK-82, TK-83, TK-85, CP-200, 
e outros. 

Testando Tig-Comp em alguns progra- 
mas desenvolvidos ou adaptados na nossa 
redação, este veio a confirmar as expecta- 
tivas, provando ter um bom desempenho 
apesar de haver algumas «restrições, mas 
quase todas superáveis. 

A fita trabalha somente com números 
inteiros, na faixa de —-32768 a 32767, 
sem operações com “Strings” e Algebra 
Booleana. 

Os comandos usados pelo Tig-Comp, 
são os seguintes: 


ABS, CHRS$S, CLS, FAST, GOSUB, 


GOTO, SCROLL, SLOW, STOP, 
UNPLOT, USR e COPY (usando-se 
USR 2153) 


DIM Z(V) — A matriz deve ser única, 
devendo ser dimensionado apenas um 
ARRAY sempre tendo o nome Z, 

FOR-NEXT — Seu incremento é sem- 
pre de 1. 

Exemplo: 


Maneira errada: 


10 FOR C=1 TO 180 STEP é 
20 NEXT C 


z 
ê 
3 
$ 
E 


190 FOR C=1 TO 18 
15 LET C=C+1 
28 NEXT C 


IF-THEN — 
Exemplo: 


E 
à 
8 
2 
É 


186 IF A=1 OR 5B=2 THEN GOTO 108 


Maneira correta: 


198 IF A=1 THEN GOTO 1608 
20 IF 5=2 THEN GOTO 106 


LET: Este comando é restrito às qua- 
tro operações (+, —, *, /) mais as seguin- 
tes funções: 


LET V = (PEEK U, USR U, ABSU, 
INT U) 


LET V = RND: Esta função é diferen- 
te da usada no seu micro. No TK,o 
RND gera um número aleatório de Ga 1. 
No TigComp, RND gera um número 
inteiro de O a 32767. Para compreender 


-melhor o uso desta função, compare os 


exemplos: 





106 LET L=INT (RND/(32767,30)) 
10 LET L=INT (RND/1092)> 


Note que, nesta função é gerado um 
número de Q a 32767, que deve ser dividi- 
do pelo número que faríamos variar, se 
usássemos essa mesma função no Basic- 
TK: 

LET V = CODE INKEYS$ — Assume o 
valor do código da tecla pressionada. 

Exempla; 

Maneira errada: 


19 IF INKEvY$="5" THEN LET A=A+1 


Maneira correta: 


18 LET J=CODE INKEY 
20 IF Je=33 THEN LET A=A+3 


NEW — Usa-se USR Q se desejar “apa- 
gar” toda a memória, incluindo acima da 
RAMTOP. 

Usa-se USR 963 para “apagar” até a 
RAMTOP, como usado normalmente. 

PAUSE V — A tela não oscila. O valor 
de V tem que ser menor que 32768 e 
qualquer tecla pressionada durante a pau- 
sa, provocará a execução do comando se- 
guinte: 


BREAK — Retorna ao Basic. 
PRINT — Podem ser usados: 
PRINT AT, “STRING”, VARIAVEL, 


CHR$, podendo os mesmos serem com- 
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Agora apresentaremos um programa- para sua aceitação no Tig-Comp. 


exemplo, mostrando-o primeiramente em Especial atenção às linhas 30, 32,35 e 
Basic-TK e, posteriormente, o mesmo 65. (Figura 3) 
programa já com as respectivas modifica- Após digitar-se o novo programa, tere- 
ções, podendo ser compilado pelo Tig- mos que compilá-lo, ou seja, transformá- 
Comp. NA lo de Basic para linguagem de máquina. 
Antes de tudo, devemos carregar o Para isso temos que acionar o Tig-Comp 
Tig-Comp com o comando LOAD “”. através do comando direto, ou seja, sem 
Carregado o programa, devemos deletar número de linha: 


todas as linhas menos as de números 


0,2,3e 4; que serão usadas pelo compi- LET L = USR 17389 
| lador. 
| ” cd 


Seu programa poderá então ser digita- 


do a partir da linha 5 Vamos ao programa Agora, atenção: na figura 3 mostramos A operação de compilar é rápida, e 
exemplo: (Figura 2) esse mesmo programa, modificado apenas após o comando acima, sua listagem apa- 
recerá na tela em forma de SCROLL. 


OR 3 irá 
GUS TROS diria: cido CUSTAUS dios Essa operação se repetirá três vezes e 
cur GEUSIO gm logo após Isso, aparecerá no canto inferior 
ET R=10 da tela o código (0/0, finalizando a opera- 
a ENE Bm AB TREE ção do compilador. A partir deste mo- 


E MISES E IMEAO A mento, seu programa já estará compilado. 
IF B(<Q THEN LET E=q 


ce e e 


ET.B=OS q As; * Se seu programa foi verificado, atenta- 
À ici PRINT AT A+1,8; mente, em Basic, poucos erros surgirão. 
Su a2dço 16395+25S+PEE  K 15999) <50] THEN GOTO 28 * 250 *PEE Caso isso ocorra, surgirá umBinverso, so- 
ES 'BBnGLE THEN Goro 75 ÉS BRENF ar 20 INT (auD 1003) ; “la jp pc pa 
20. INT (RNDsS0); is 20 TNT (RN, 1092) ; OSS AT” bre ou próximo ao erro cometido. 
 LRNDÉSE); “ATL AT 26,1 26,INT (RND/1092) ; O cursor é transposto instantaneamen- 
cDONTOS lo ds PRINT AT 21/60] "QUER JOGAR D te à linha não identificada pelo compila- 
85º “ B3 LET JSCODE INKEY dor, faltando somente editar e corrigi-la. 
“Ss THEN GOTO 100 ST IF J=S6 THEN GOT 120 - . 
E “Nº THEN PRINT AT . 28 IF J=51 THEN PRINT AT 10,13 Depois de compilado, o programa deve 
5 “+22 soro ss ser tratado como uma rotina em lingua- 


188 CLS 
185 coTo 15 GOTO 15 
STOP 


gem de máquina e, para acioná-lo, usa-se 
gs a fig.3 | o comando LET L = USR 18823. o 


TERMINE 


COM O LIGA-DESLIGA DE SEU MICRO, 
VÍDEO-GAME, VÍDEO-CASSETE, ETC. 


USE A CAIXA DE 
DISTRIBUIÇÃO CD-3-1 


compativel com: 
TK82, TK83, TK85 e 
TK2000, CP200, 
CP300 e toda a 

linha APPLE. 
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A NEVE DO ESQUIADOR REALMENTE 
ERR “FOFA” E DESLIZOU SOBRE NÓS. 
AR “AVALANCHE” SE DEVE AO FATO DE 
TERMOS  OMITIDO OS cóbIGOS DE 
LINGUAGEM DE MÁQUINA DA LINHA 
REM. BASICAMENTE NÃO HA” PROBLEMG 
EM COPIA-LA CARACTERE POR CARAC- 
TERE (VEVA “DESGRILANDO” DO NºS). 
PORÉM, UM DOS CARACTERES ESTES EM 
INVERSO E ALGUMAS REVISTAS PODEM 
TER SAÍDO COM UM PEQUENO DEFEITO 
NA IMPRESSÃO, IMPEDINDO SUA LEI- 
TURA. 
ASSIM OS CÓDIGOS SAO: 


E ( 
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OS OITENTA 


Última Parte 


As funções de “fatiamento” de strings, 
também conhecidas por funções s/icings, 
são convenientes para qualquer programa 
de processamento de textos. 

Estas funções permitem ao compu- 
tador “quebrar” uma cadeia de caracteres 
em pontos determinados. Estas funções, 
associadas com as outras que descrevemos 
anteriormente (Microhobby número 6), 
nos permite isolar qualquer grupo de ca- 
racteres numa string e executar funções 
com eles. 


RIGHTS, MID$ e LEFTS$ 


As funções RIGHTS, MID$ e LEFTS 
são responsáveis no TRS-80 e na maioria 
dos computadores (mas não no TK) pela 
slicing. 

RIGHTS (string ou variável string, n): 
esta função fornece os últimos caracteres 
da string, Ou seja, Os n caracteres à direita, 
contados a partir do último. 

Por exemplo, no programa: 


10 LET A$ = “CERTAMENTE” 
20 LET B$ = RIGHTS (A$,5) 
36 PRINT B$ 


O computador exibirá na tela: 
MENTE 


LEFTS$ (string ou variável string, nj): 
fornece os n primeiros caracteres de uma 
string. 

Por exemplo, no programa: 


16 LET A$ = “CERTAMENTE” 
20 LET B$ = LEFTS (A$,5) 
30 PRINT B$ 


O computador exibirá na tela: 
CERTA 


MIDS (string, ou variável string n, m): 
fornece um trecho da string de compri- 
mento n a partir do caractere m. Por 
exemplo, o programa: 


16 LET A$ = “CERTAMENTE” 
3 PRINT B$ 


exibirá na tela: 
36 MICROHOBBY 


TAM 


Além destas funções, podemos juntar 
pedaços de strings ou strings inteiras por 
meio da operação de concatenação ou so- 
ma de strings. Esta operação 'soma” duas 
strings e fornece como resultado uma 
string com os caracteres justapostos. Por 
exemplo, o programa: 


10 LET A$ = “CERTA” 
20 LET B$ = “MENTE” 
30 LET C$ = A$ + B$ 
46 PRINT C$ 


exibirá na tela: 
CERTAMENTE 
O slicing no TK-83 


No TK-83 e seus compatíveis é pos- 
sível fazer o “fatiamento” de strings usan- 
do-se um recurso muito interessante: a 
própria posição dos caracteres. 

Se você conhece bem o TK, deve estar 
lembrado que cada caractere ocupa uma 
posição de memória numa variável string. 
Cada uma destas posições de memória 
tem o tamanho exato de um byte. O 
BASIC do TK permite que tenhamos 
acesso à cada um destes bytes. Por exem- 
plo na figura 1, mostramos um programa 
em BASIC TK que nos permite acessar 
um a um os bytes da string “CERTA- 
MENTE”. 


oa STE E 
AB (12);AS(CI) 


Cc 
E 
R 
e q 
A 
M 
E 
N 
a E 
E 


Com este tipo de artifício poderemos 
simular no TK, as instruções RIGHTS, 
MID$ e LEFTS. 

RIGHTS: no TK, devemos usar artifí- 
cio que faça o computador considerar a 
string de um ponto qualquer até o final, 
Para isso, basta fazer: 


LET BSs-ÁgG(N TO > 


onde A$ e B$ são variáveis strings, e N é 
um número inteiro. Repare que após o 
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TO (SHIFT 4) não aparece número al- 
gum. Assim, o computador considera a 
string a partir do caractere N até o final. 

Experimente agora o programa da fi- 
gura 2. Ele fornece todas as partes de uma 
string, que podem ser obtidas por este ar- 
tifício. 

POR Je TO dO 


PRINT AS(I TO 5 
NEXT I 


CERTAMENTE 


ERTAMENTE 
RTAMENTE 
TAMENTE 
AMENTE 
HENTE 
ENTE 

NTE 

TE 

E 





LEFTS: basta fazer com que o TK 
considere uma string a partir de primeiro 
até o “enésimo” caractere. Por exemplo: 


CET B$=A$(1 TO N5 


onde N significa o número de caracteres 
que desejamos na string. O programa da 
figura 3 é um bom exemplo de como as 
coisas ocorrem no TK. 

LET AS=“CERTAMENTE” 


20 FOR I=1 TO 18 
PRINT AgSt1 TO 1) 
NEXT 1, 


AMENT 
CERTAMENTE 





MIDS$: basta fazer com que o TK con- 
sidere uma string a partir de um caractere 
também determinado. Por exemplo: 


LET BS=AStM TO mM) 


onde N representa o primeiro caractere 
considerado e M o último. O programa da 
figura 4 mostra um exemplo de aplicação 
para este tipo de instrução. 








(e - — 










| 
Í 
| 


| 
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Tanto no TK como no TRS-80 estas 
funções podem ser associadas a outras pa- 
ra se calcular a posição dos caracteres de 
uma string. 


implementando o Editor de Cartas 


Com o “conhecimento que já temos, 
podemos traduzir o programa do TRS 80 
para o TK. Na figura 5, mostramos uma 
listagem de como o programa ficou após 
nossas traduções. Evidentemente, corta- 
mos uma parte dele para simplificá-lo. To- 
davia, as alterações que fizemos não fo- 
ram muito profundas e podem ser incre- 
mentadas na listagem final. 


1 REM Cia o 

10 LET Ex= 

30 DIM AR (>o. 3531 

40 PRINT “TARANHO nax. DA LINH 
A=32 LETRAS” 
130 PRINT “INSTRUCOES 
140 PRINT “INTRODUZA as LINHAS 


1580 PRINT “P/ CORRIGIR 1 LINHA 
q 188 PRINT “DIGITECC>ÍCVE O SEU N 


178 PRINT “DIGITE FIM PARA PARA 
171 PRINT “ODO A TELA ESTIVER C 


173 PRINT “DIGITE CONT” 

175 PAUSE 35909 

176 CLS 

182 FOR X=1 TO 1080 

190 LET Z=X 

2PB PRINT “>+º;X 

218 INPUT ASgtixX? 

215 PRINT AgtX> 

220 IF Ag(X,1)=º+" THEN GOTO 45 
e 


230 nd id TO 53)=“FIM" THEN 
6 
25sa Ra X 


CL 
340 FOR B=1 TD x-1 
3seo aro ASS) 


452 REM ROTINA Pág o 


Z CERFadOUZ IR 
472 PRINT “ LICORRECA 
PUT a 


480 IF 3<8 OR pes THEN GOTO 470 
+ 


o 

5S8B LET OS=INKEYS 
“e” THEN GOSUB 1096 

“ AND Cc<c=T TREN GOS 


* THEN GOSUB 3ZO0B 
“ THEN GOSUSB 4090 
* THEN GOSUS SOoo 


10866 FEM MOSTRA CARACTERES 
IF C>»7 THEN GOTO s5sg 
1618 LET ba 
1920 LET C=€ 
1048 LET SAS ev ,M1 
1058 PRINT IS, 
18960 RETURN 
2202 REM DELETA CACTERE 
LET AGiv) =AG(Y,À TO C-11+AS 


3IB20 LET ASgiw) =AsSIY,1 TO C-1)+Js 
+ARGLY,C TO (452-C-LEN 671 
30 RETUR 


Eacicio) o dp ESCAPE 


PRIMT 
4030 PRINT AgtvI 
4040 LET AGeXI="" 
4050 LET X=X-1 
406828 GOTO 240 
So0a REM MOSTRA LINHA 
5010 PRIHT A$Iv,C TO 1 
So2a LET M=6 


Vamos, agora, descrever algumas das 


alterações que foram necessários para que 
o programa “rodasse” no TK. 

A primeira alteração importante está 
na linha 30. Nela ao invés de fazermos: 


DIM AS(t108)3 
fizemos: 


DIM A$(20,32) 


Isso porque limitamos o número de li- 
nhas à 20, com 32 caracteres. No TK,o 
último índice de uma matriz string é O 
indicativo do tamanho máximo que cada 
variável, que faz parte desta matriz, pode 
ter. Assim, no nosso caso, A$(20,32) sig- 
nifica que temos uma matriz com 20 va- 
riáveis, contendo 32 caracteres cada uma. 
O segundo índice é usado no slicing indi- 
cando ao computador que aquela variável 
possui um comprimento máximo (no nos- 
so caso, 32). Cuidado entretanto com as 
“atribuições procustianas”. 


As Atribuições Procustianas 


Uma das coisas que mais tem “grilado” 
os possuidores do TK-83 e seus compat- 
veis é que, nos manuais de muitas destas 
máquinas, aparece uma frase com mais ou 
menos este conteúdo: “As atribuições de 
uma variável string só podem ser procus- 
tianas”. 

Isso apareceu no manual, porque seu 
autor conhecia muito bem Mitologia: 
Procustes era um gigante que raptava as 
pessoas e as colocava deitadas numa ca- 
ma. Se a pessoa fosse menor, ele as estica- 
va até que ocupassem todo o leito. Se fos- 
sem maiores ele cortava suas pernas no 
comprimento da cama. É o que acontece 
com a atribuição de variáveis no TK.,. 
Quando você dimensiona um variável com 
DIM A$(10), ao atribuirmos uma string à 
A$, o computador sempre considera a 
string com dez caracteres (o valor do índi- 
ce): se a string for maior, ele corta os últi- 
mos caracteres; se for menor, ele preen- 
che o que falta para completar, com es- 
paços em branco. Experimente rodar o 
programa que mostramos na figura 6 para 
entender melhor o que ocorre. 


Ee =p IM as(18 
Ag= “PARALELEP IPEDO* 

5a BR INT AS «LE 

4 ET A *pRRALETO" 

se PRINT AS .LEN as 


PARALELEPI 
PARALELO 


Como você deve ter notado, as atribui- 
ções deste tipo fazem com que as strings 
tenham sempre o mesmo comprimento, 
Levando isso em consideração não pode- 
remos, em hipótese alguma, controlar es- 
tas variáveis pelo seu comprimento, co- 
mo fizemos no TRS-80. 


Outras modificações 


Algumas modificações são óbvias e não 
as comentaremos (basta que você dê uma 
olhada na listagem que apresentamos nes- 
te número e na listagem que apresenta- 
mos na Microhobby 5). 

Devido às “atribuições procustianas”, 
eliminaremos a parte que verifica se uma 





linha digitada excedeu o tamanho máxi- 
mo. Desta forma, se uma linha for excedi- 
da, o computador desconsidera o trecho 
a mais. 

As rotinas de correção foram substitu í- 
das por sub-rotinas. Atenção para a sub- 
rotina que mostra Os caracteres, uma vez 
que o BREAK do TK está na mesma tecla 
que o espaço, usamos o número () para fa- 
zer esta função. 

Com o que descrevemos neste e nos 
números anteriores, com um pouco de 
atenção, você pode analisar uma a uma as 
rotinas de correção de erros. Note que 
não fizemos uma rotina para obackspace 
(retorno do cursor sem apagamento de 
caracteres). Para isso, devemos lançar mão 
de uma rotina em linguagem de máquina. 
Isso fica como uma sugestão para que vo- 
cê desenvolva uma e nos envie como cola- 
boração (se for em BASIC, melhor ainda). 


Como qualquer outra seção desta revista, 
a seção Os Oitenta está aberta às colabora- 
ções, desde que estejam dentro do seu espí- 
rito: artigos voltados para o TRS-80, de pre- 
ferência sem mencionar-se discos ou lingua- 
gem de máquina, muito bem explicados, 
com detalhes técnicos para que o usuário do 
TK possa aprender um pouco mais de pro- 
gramação e conhecer uma outra máquina. 
Daremos preferência a artigos e programas 
que procurem aproximar as duas máquinas, 
mostrando suas semelhanças e diferenças. 


INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 
0S/VS1 — VSE — VM/CMS — VSAM 
CICS — DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 


MICROINFORMÁTICA 
BASIC -— ASSEMBLER — 
LOGO — CP/M — VISICALC 
dBASE Il —- WORDSTAR 


PASCAL 


FORMAÇÃO DE PROGRAMADORES 
DURAÇÃO: 9 MESES 


CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATÓRIO DE MICROS 


TREINAMENTO IN HOUSE 


SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 
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CURSO DE ASSEMBLY 


aula 6 


21911200i11211444 20009081 1iw. «1+eIJiIBdI.. 
31121111919096 118411091011 «22120 61I1)1IIT 
MAB 1BDIL LI 118081" 9018: 21207" TBIIRB 
«2210417 311266 L196% .B1106 IG IES 
IJREROIF 912082, 21119' 12160889 18121 
41111060” 101213191 186" S016€ 221€€ 
22192097 J“sB390821Ã- 1GDBL 1106€ 
$11183 191907 *17101. GOIBE 121861 
. 18111 1227 111 19612€ 1B91€ 
311601217 23228 2099 790111 QI318: 
GOSSIlveislgsiga GIEDSL. 42013 DAS TS. .XXOIIS 
2982102021109819 1090200119 819F "gililiçdIgsss 
2009001209000101 *119012181111”7 “111289137 
ads Te Ta dE e To o 


Iremos agora fazer “contas'' com os re- 
gistradores, assim como fazemos em 
BASIC, com as variáveis de um programa; 
entretanto, a linguagem de máquina per- 
mite fazer diretamente apenas contas de 
soma e subtração e, como você já deve ter 
notado, lida apenas com números inteiros. 

Vamos indicar com as instruções de 
adição de registros e de pares de registros: 
(Tabela 1) e (Tabela 2) 


INSTRUÇÕES | CÓDIGO 





res ou entre registradores e memória, per 
manecendo nele o resultado da operação, 
No caso de par de registros, o par privile- 
giado é o HL. Assim, qualquer operação 
aritmética DEVE utilizar o acumulador 
ou o par HL. 

Vamos então tentar somar o conteúdo 
do registro D com o registro E com uma 
subrotina em linguagem de máquina: (Ta- 
bela 3). 

Note que a soma não pode ser feita di- 
retamente! Devemos obrigatoriamente 
usar o ACUMULADOR, Coloque então o 
programa na memória e execute-o (usan- 
do HEXAMEM, publicado na edição nú- 
mero 4 e na número X, que condensa os 
melhores programas publicados na Mtl- 


Flavio Rossini 


CROHOBBY). Voce deverá obter o nú- 
mero 100 (= 34 + 66)! Provavelmente de- 
ve ter surgido na sua cabeça, a seguinte 
pergunta: e se a soma der maior do que 
255 (ou seja FF') que é o máximo que 
cabe num registro? E no caso de pares de 
registros, se o resultado for maior do que 
esnss ('FEFE')? 


De fato, em BASIC quando uma variá- 
vel estoura O limite máximo do compu- 
tador, O programa pára e aparece uma 
mensagem de erro. 

Para ver O que acontece em linguagem 
de máquina, façamos um exemplo: vamos 
carregar o registrador BC com o valor má- 
ximo e somar 1. (Tabela 4). 


1E22 
1642 





Tab.1 





“TA : copia D em A 
'B3 ; soma E com À, ou seja, com D 
INSTRUÇÕES cóDIGO '4F' : copia o resultado em C 
ADD HLBC . 0600' ;coloca 6 em B para a saída do pro- 
ADD HL,DE grama 






ADD HLHL Co 





Programa para somar os registros De E. 


Tab .2 
A instrução ADO entre registros. 


que significam: some o conteúdo do regis- 
tro ou par de registros da direita com o da 
esquerda e conserve o resultado no regis- 
tro, ou par de registros da ESQUERDA; 
os registros da direita, portanto, NÃO são 
alterados. Em BASIC, uma analogia pode- 
ria ser feita com: 
LET X=X+Y 


Novamente notamos o registro A, ou 
seja, o ACUMULADOR como sendo pri- 
vilegiado; de fato, ele é o “alvo” de todas 
as operações aritméticas entre registrado- 
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LO HL,1 210100" ; coloca 1 em HL, ou seja, '0001' 
(note que devemos completar 
os 2 bytes de dados) 

"GIFFFF* ; coloca o valor máximo em BC, 
ou seja, 'FFFF' 

; soma BC com HL;o resultado 
fica em HL 

coloca H em Be LemC para 


poder ter o resultado na tela 


LD BC,65535 


ADD HL.BC “09 


LD B,H “44 
LD CL 


RET "Co" 








“não cabe” 


1 


19 
18 (9+8= 17, vai um...) 


37 
O microcomputador assinala este acon- 


Você obtém como resultado o número 
0! De fato, pensando em hexadecimal (re- 
vista número 4 e número X de Micro- 
hobby), ao somar '1º ao número 'FFFF' 
deveríamos obter "1 000M', mas veja, este 
último dígito 
tros! Quando isto ocorre, dizemos que 
houve um “vai um” ou CARRY, assim 
como ocorre ao somarmos, por exemplo: 


nos regis- 


tecimento em um bit chamado CARRY 
que faz parte de um registro INTERNO 


chamado F o qual não podemos usar 


DIRETAMENTE. Este registro armazena 


bits para várias informações (usualmente 
estes bits são chamados de FLAGS). As- 
sim, sempre que executarmos uma instru- 
ção de ADD, o bit de CARRY é calcula- 
do: se houver “vai um” ele resulta 7, caso 


contrário (QD. 


Podemos usar o valor deste bit para fa- 
zer contas com números maiores do que 


255 ou até mesmo maiores que 65536. 


Para isto, usaremos a instrução ADC que 


é abreviação de “ADD WITH CARRY” 


ou seja, some com o CARRY, que sim- 


plesmente adiciona ao resultado obtido 
de uma soma, O valor do CARRY. Tere- 


mos então as seguintes instruções: (Tabe- 
la 5), 















as 
2 


lim 


“ 
” o 


com 







INSTRUÇÃO 
A,A 


ADC 
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ADC HL,BC 
ADC HL,DE 
ADC HLHL 


Tab.5 


A instrução ADC. 


Observação: Estas três instruções 
fazem parte das instruções precedi- 
das pcr “ED”, 


256 + 239 = 173551) 
'F4DE' 
= 62686) 

(NOTA: 65536 = (256)?) 


Devemos obter: 173551 + 62686 
236.237. 


(=244*256 + 222 


Vamos então utilizar a instrução ADC 
- para fazer contas com números maiores 
- do que 65535. Suponhamos que quisés- 
- semos somar os seguintes números: 
Q2ADEF' (= 2*65536 + 165* 


Vamos dividir os números em três par- 
tes: colocando o primeiro nos registros 
B, De He o segundo nos registros C, E e 
O o resultado será colocado nas memó- 
rias, após o fim do programa! O raciocí- 
nio a ser usado é análogo ao somar de nú- 
meros de três dígitos na base 10, só que, 
no caso, a base seria 256. . . (Tabela 6). 

Repare que não nos interessa o resulta- 
do final dos registradores BC que no caso 
será 61406. O resultado da nossa soma 
por partes está nas memórias 30028, 
30029 e 30030 que estão apos a instrução 
de RET. Portanto, para verificar se o nos- 
so raciocínio está certo, basta fazer: 


PRINT 65536 * PEEK 30030 + 256 * 
PEEK 30029 + PEEK 30028 


e obteremos 236.237! Note que a primei- 
ra instrução de soma deve ser SEMPRE 
um ADD pois não sabemos qual o valor 
inicial do CARRY e, se por acaso ele for 
1, introduziremos um erro no resultado, 
Neste ponto vale a pena salientar que as 
instruções LD não afetam a flag de 
CARRY; repare que as usamos /ivremente 
entre as instruções de adição sem afetar o 
resultado. 

As instruções de ADD e ADC também 
podem ser utilizadas para somar constan- 
tes numéricas diretamente com o acumu- 
lador; assim temos: (Tabela 7). 


CÓDIGO 


'C6' + 1 byte de dados 







INSTRUÇÃO 









ADO A,dado 
ADC A,dado 





'CE' + 1 byte de dados 


LD E,200 
LO D,58 
LD A,D 
ADD A,E 
LD CA 
LD A,0 
ADC A,A 


LD B,A 
RET 


LD DE,13189 
LO HL,31687 
ADD HL,DE 
LD 8,H 





O resultado ficará no acumulador; lem- 
bre-se que este registro é privilegiado e 
todas as operações aritméticas são referi- 
das a ele! Obviamente estas instruções 
também afetam a flag de CARRY. Note 

* Que, não podemos somar dados DIRETA- 
MENTE com pares de registros! 


Suponhamos então que você deseje so- 
mar um número, menor que 256 (por 
exemplo 74) com um par de registros 
(por exemplo HL). Isto poderia ser feita 
da seguinte maneira: (Tabela 8) 


Repare cuidadosamente no uso da ins- 
trução ADC AQ, que foi utilizada apenas 
para somar o valor do CARRY ao registro 
H! Usando este mesmo procedimento, 
tente agora somar um número maior do 
que 255 ao par HL, por exemplo HL + 
+ 256. .. (você deverá quebrar o número 
em dois bytes!). O exemplo anterior po- 
deria também ser feito carregando o par 
DE com 74 e usando a instrução ADD 
HL, DE; entretanto, estaremos usando 
mais registros. 


A operação de soma é muito utilizada 
também quando desejamos utilizar uma 
variável como contador para poder fazer 
loops de repetição; mais adiante, aprende- 
remos como fazer esses /oops em lingua- 
gem de máquina; por enquanto, vamos in- 
troduzir a instrução INC (abreviação de 
INCREMENT), a qual adiciona 1 (um) ao 
valor do determinado registro (ou par), 
SEM, no entanto, AFETAR O VALOR 
DO CARRY! Observe que podemos usar 


; soma E com À e gera CARRY 

; coloca o resultado em C 

; coloca 0 em A 

transfere o CARRY para A e a seguir 


para B 


Soma de dois registros com resultado maior que 255. 


118533 
'21C778' 


: coloca 13189 em DE 
: coloca 31687 em HL 


“19º : soma DE com HL 
'44º icoloca H em Be LemC para 


a saída na tela 


Soma dos pares DE com HL. 
MICROHOBBY 39 


esta instrução com TODOS os regis- 
tros: (Tabela 9). 





Tab.9 

Novamente, referindo-se ao BASIC, 
uma analogia para esta instrução seria: 

LETX=X+1 

Lembre-se sempre da diferença entre 
ADD e INC: por exemplo, ADD A,1 irá 
calcular um valor para o CARRY (G ou 1) 
enquanto que INC A deixará o CARRY 
inalterado, embora as duas instruções pro- 
duzam o mesmo resultado no acumu- 
lador. 

Vamos então, seguindo os mesmos pas- 
sos que fizemos com a instrução LD, sair 
dos registros e ir para a memória. Apenas 
três instruções são disponíveis, que mos- 
tram claramente o privilégio do Acumula- 
dor e do par de registros HL: (Tabela 10). 





ADD AHL) 


ADC A,(HL) 


INC (ML) 


Tab. 10 


que significam respectivamente: some Oo 
CONTEÚDO da memória indicado pelo 
par HL ao acumulador (sem CARRY e 
com CARRY) e incremente o conteúdo 
da memória indicada por HL. Assim, ve- 
jamos o procedimento necessário, para so- 
mar um número, por exemplo, 64, ao 
conteúdo da memória 30010:(Tabela 11). 


Faça POKE 30010,36 e a seguir exe- 
cute o programa. Você deverá obter 104, 


HL,30010 
A,64 
AAHL) 


CA 











COLOR 64 





As instruções INC e ADD usando a memória. 


pois irá realizar a conta 64 + 36 = 100! É 
sempre bom recordar que as variáveis de- 
vem ficar APÓS a instrução de RET 
(30010) no nosso caso). Entretanto, para 
programas mais complexos, é interessante 
colocar as variáveis bem depois da instru- 
ção de RET, deixando espaço livre na me- 
mória entre o fim do programa e as variá- 
veis para eventuais modificações no pro: 
grama que possam causar aumento do seu 
tamanho. O 


213475' 
JE4QG 
'BE' 


; coloca 30014 em HL 

; coloca 64 em A 

; Soma O conteúdo da memoó- 
ria 30010 com A 

ptransfere o resultado para 
BC 


'G600' 
'4F ' 
"cg" 


A instrução INC para os registros internos. 


Do BB 


o micro profissional 
mais barato do mercado 


NI 
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club 


* Descontos especiais na 
aquisição de livros. 


* Descontos em lojas de 
produtos e sistemas de 
microcompu 
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QUEBRA-CABEÇA 


As/ Pontes 
no Caminho 


da Aldeia 


Novamente, para esta seção, contamos 
com a colaboração de nosso colega, as- 
sinante e amigo pessoal, Nabor Rosenthal. 

Recebemos por volta do começo do 
mês, uma carta onde Nabor nos conta so- 
bre sua última viagem, quando esteve no 
Norte da India. 

Lá, a caminho da casa de seu ami- 
go, Ramarujan, ele teve que atravessar 
uma intrincada rede de pontes sobre um 
rio. O passeio de Nabor Rosenthal foi o 
que nos inspirou este mês. 

A seguir, transcreveremos o trecho da 
carta que deu origem ao nosso Quebra- 
Cabeça: 

“indo ao encontro de meu amigo de 
infância, tive que atravessar um rio. Este 
rio continha 10 pequenas ilhas, interliga- 
das por uma rede de 18 pontes. Entretan- 
to, para cruzar sete destas pontes, deve- 
ríamos pagar uma determinada quantia. 
Este fato chamou-me a atenção e pergun- 
tei-me: Por que apenas sete? 

Eu queria visitar todas as ilhotas, pois 
uma carta de meu amigo hindú me infor- 
mava que em cada uma delas havia uma 
escultura em pedra, verdadeiras obras de 
arte, datadas de muitos séculos atrás. 

Antes de atravessar, porém, eu pensei 
um pouco sobre as sete pontes. Não foi 
preciso muito tempo para descobrir a mi- 
lenar sabedoria Hindu, escondida discre- 
tamente na disposição das pontes e na es- 
colha das pontes que deveriam ser taxa- 
das. Estas sete pontes foram escolhidas de 
tal forma que quem quisesse se livrar das 
taxas, teria que passar necessariamente 
por todas as ilhotas e por todas as outras 
11 pontes, pelo menos uma vez. Desse 
modo, uma pessoa disposta a não gastar 
desnecessariamente, veria todas as dez 
esculturas, sem pagar um centavo. 


Atravessei o rio pelo caminho mais 
econômico (sem pagar nada), passando 
uma única vez por cada ilhota e por cada 
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— Gatinho Careteiro ! — disse ela com ti- 
midez, não sabendo se o Gato gostava que 
o chamassem assim. Vendo que não se zan- 
gava, aventurou-se a concluir a frase: 

— Pode dizer-me que caminho devo to- 
mar? 

— Isso depende do lugar para onde quer 
AR respondeu com muito propósito o 

— Não tenho destino certo. 


uma das 11 pontes sem taxas. Na base de 
cada escultura que encontrei em meu ca- 
minho, havia um número gravado. Anotei 
cada um deles e vi que formavam uma se- 
quência lógica que chegou a me espantar, 
pois estes números, nesta sequência, apa- 


rentemente apresentavam um 
cado”. 

Em anexo, Nabor nos mandou um ma- 
pa, que reproduzimos na figura 1. As pon- 
tes estão diferenciadas por letras e as ilhas 
pelos números das esculturas. 


signifi- 





Renato da Silva Oliveira 


— Nesse caso, qualquer caminho serve. 

— Servirá sim, se o caminho levar a al- 
gum lugar — sugeriu Alice. 

— Qualquer caminho conduz a algum 
ponto, se você andar depressa e chegar — 
disse o Gato. 


Trecho de “Alice no País das Maravilhas” 
de Lewis Carroll — Adaptado por M. Lobato 





Seu problema é: 


1) Fazer com que o TK, previamente . 
programado, descubra o caminho seguido- 
por Nabor Rosenthal, indicando quais das 
pontes ele usou. 


2) Descobrir, usando o TK, se há al- 
gum significado na sequência de números 
encontrados nas bases das esculturas por 
Nabor Rosenthal, e se houver, esclarecê- 
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CARACTERÍSTICAS TÉCNICAS: 


UNIDADE DE PROCESSAMENTO: 
- Microprocessador Z80 A (8 hits) velocidade 3,25 MHz 


MEMÓRIAS: 
— & Kbytes EPROM (sistema interpretador BASIC) 
16 Kbytes RAM [utilização para O usuário) 


MONITOR DE VÍDEO: 
— TV B&P ou côr no canal 2 (sem modificação) 
- 24 linhas com 32 caracteres por linha. 
— Gráficos 44 x 64 pixeis 
Vídeo reverso e normal comutável por chave 


SOFTWARE: 

— Compativel com; CP200, TK82-C, TK83, TK8S, 
NEZ8000, TIMEX 1000, ZX80, 
ZX81 

— Programável em linguagem de máquina 

— Basic residente 


APL ICAO 


«GEREM gi se 
A CUL 








qES 


PRO 


UNIDADE DE FITA: 
— Um gravador (sem interface AS-100) 
— Usando interface AS- 100: até quatro gravadores. 


TECLADO: 
- Membrana com ação sensitiva de toque fbolha 
metálica inoxidável] 


40 teclas com 154 funções, caracteres alfanuméricos, 


caracteres gráficos, funções matemáticas, comandos 


EXPANSÃO: 

— Para 32 Kbytes e 48 Kbytes (64 Kbytes total.) 

— Adiciona-se um ou dois módulos de 16 Kbytes, no 
interior do micro, através de acesso próprio no fundo 
do mesmo 

— O módulo básico de 16 Kbytes, e os dois de 
expansão, são todos iguais, permitindo expansão 
progressiva pelo usuário 


ACESSÓRIOS: 

— Dois cabos para conexão de gravador 

— Um cabo para conexão do micro a TV 

— A fonte de alimentação (1 10/220V!] já é embutida no 
AS- 1000 dispensando qualquer fonte externa 


GARANTIA DE 1 ANO 


CEP 22210 - RIO DE JANEIRO - RJ 


COMPUTADOR PESSOAL 
AS-1000 


PERIFÉRICOS: 


— Modem para transmissão de dados 

— Joystick 

— AS-100 finterface) 

- Opera e gerencia até quatro gravadores 
comanda qualquer impressora (inclusive 
profissionais) 
manipula arquivos em fita e não somente programas 
Inteiros. 
avança e pára gravadores, também por software 
(programação), 
testa validade de programas e arquivos em fita. 
permite cópias de fitas 
sta programas, dados e arquivos na impressora 
exclusivo sistema FSK (frequency shift keying) com 
compressor de áudio, que ajusta automaticamente 
o nível para O gravador, eliminando a desagradável e 
critica tarefa de ajuste no mesmo, oferecendo total 
contabilidade nas gravações em fita 
Módulos de expansão (vide memórias) 

— Speed file. 
expansão externa de memória com 1, 20u 4 
Mbytes 


ASSISTÊNCIA TÉCNICA DE FÁBRICA 


ENGEBRÁS 


ENGEBRÁS ELETRÔNICA E INFORMÁTICA LTDA. 


ADMINISTRAÇÃO DE VENDAS: Rua Russel, 450 - 3º - Tel: 205-4898 





O TK 83 já ensinou mais de 2 milhões de pessoas. 

Ele é muito fácil de operar. Usa o Basic, e a memória chega 
até 64 K bytes, e aceita monitor, impressora e joystick. 

Num instante você vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponíveis. O 
TK 83 não é só a melhor iniciação. Também é a mais divertida. 


E 
Er 


Com o TK 85 você também pode se divertir muito: ele 
tem dezenas de jogos disponíveis. 

Mas ele já é mais sofisticado. Tem software já pronto 
Linguagens Basic e Assembler. Teclado tipo máquina de 
escrever, com 40 teclas e 160 funções. 160u 48K de 
memória RAM, e 10 de ROM. Gravação em high-speed, 
e função Verify, para maior segurança. 

Quando você já estiver apaixonado por 
microcomputação, ele vai corresponder totalmente 


Aqui você mostra 
tudo o que sabe. 


O TK 2000 Color tem tudo que os 
melhores micros têm. Menos o preço 
Aceita diskette, impressora (já vem com 
interface), alta resolução gráfica à cores 
podendo ser ligado ao seu TV colorido 
ou P&B. Tem 64 k de memória RAM e 
16 k de memória ROM. Com excelente 
software disponível. 

Você cedia mostrar tudo o que sabe 

ea Sem precisar mostrar muito dinheiro 


NEPEAT 


MICRODIGITAL 
Microdigital Eletrônica Ltda 
Caixa Postal 54121 - CEP 01000 - 
São Paulo - SP Telex nº (011) 37008 MIDE BR 


Preço SUjG!o U Geração 


À vendo nas boss cosas do ramo, lojas especializados de fotovideo-som e grondes mogorines em: ALAGOAS - Maceió, Palmeiro dos Indios, AMAZONAS - Monous, BAHIA - Salvador, CEARÁ - Forto- 
lezo, DISTRITO FEDERAL - Brosílio, ESPÍRITO SANTO - Vitório, GOIÁS - Goiónio, MATO GROSSO - Cuiobá, MINAS GERAIS - Belo Horizonte, Divinópolis, Itojubo. Juiz de Fora, Poços de Coldos, São 
João Del Rei, Teófilo Otoni, Uberlândio, Uberobo, Viçosa, PARAÍBA - Compina Grande, PARÁ - Belém, PARANÁ - Curitibo, Londrino, Moringó, PERNAMBUCO - Recife, RIO DE JANEIRO - Compos, Ni- 
terói, Novo Friburgo, Petrópolis, Rezende, Rio de Joneiro, Volto Redondo, RIO GRANDE DO SUL - Bogé. Conoos. Coxios do Sul, Ijul, Novo Hamburgo, Pelotas, Porto Alegre, Sont' Anno do Livromen- 
to, Santiago, Santa Rosa, São Leopoldo, RIO GRANDE DO NORTE - Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araroquoro, Assis, Avaré, Bauru, Birigui, Botucatu, Compinas, Cotonduva, Franco, 
Guorulhos, Itu, Jocarei, Joú, Limeiro, Lins. Marílio, Mogi Guaçu, Mogi dos Cruzes, Ourinhos, Pirocicobo, Pirassunungo, Promissão, Rio Cloro, Ribeirão Preto, Santos, Sonto Barb. d'Oeste, São Ber- 
nardo do Compo, São João da Boo Vista, São Sebs. do Gromo, São Carlos, São José do Rio Preto, São José dos Campos, Stº André, São Paulo, Sorocabo, Suzano, Taubaté, SANTA CATARINA - Blume- 
nou, Brusque, Florinópolis, Itojoí, Joinville, SERGIPE - Aracajú, Se você não encontrar este equipomento na suo cidade ligue paro (011) 800 - 255 8583 





